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I. INTRODUCTION AND ACKNOWLEDGMENTS 

The Faculty Publication System, FACPUB, a system to 
computerize the faculty publication records of the NPS 
faculty, was created in response to several demands. The 
Dean of Research recognized the need for a com.pilation of 
the publications and presentations of the faculty. The 
Research Office periodically issues a report, "Eeaent NPS 
Publications [1] covering the most recent three years and a 
computerized listing would assist in its preparation. In 
addition the NPS library is asked to respond to requests for 
lists of technical reports, books and other publications 
produced by NPS faculty. 

The system was developed under the urging of Dean 
W. M. Tolies by the author while serving as the Assistant 
to the Dean of Research. Generous help and most of the APL 
programs in the system were provided in their initial form 
by Professor K. T. Marshall who developed them for use in 
publishing the OR/MS Index [2]). Numerous changes have been 
made in these programs, but the FACPUB system would never have 
existed in its current form without them. 

Ms. Helen J. Waldron and Ms. Julie Diepenbrock Herrick 
of the Cataloging Division of the NPS Library were involved 
in initial system specifications and Ms. Herrick has been 
heavily involved in overseeing the actual data input and in 
suggesting improvements in the programs used for that purpose. 
The burden of data input has so far fallen largely on Ms . Rumi 
Esocbido of the Cataloging Division although substantial help 
was provided in tie early phase of the project by Mrs . Linda 
Ishii . 

Ms. Patricia Meadows of the Operations Research Depart- 
ment deserves recognition for having written the programs LIST, 
BOOK, GETSORT and GETBOOK. 
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II. SYSTEM OVERVIEW 



A . System Requirements 

The basic requirement for the FACPUB system was that 
it provide a convenient way of entering, sorting, and printing 
faculty publication records. More specifically the following 
requirements were identified: 

1. The input process should be convenient for the operator 
and should not require that the operator be a skilled 
computer user. 

2. The system must be capable of producing upper and lower 
case output. 

3. The system must be capable of sorting records according to 
the following characteristics : 

a. academic department 

b. publication type 

c. faculty member 

d. security classification 

e. year of publication 

f. alphabetically by first author. 

It was never intended that the system should be an 
on-line system for answering inquiries about specific author's 
records. Such inquiries will be answered by reference to master 
lists of publications produced periodically. 



B. System Design 

The FACPUB system is a terminal oriented system as far 
as the file construction is concerned. Records are entered by 
a user working interactively with APL programs operating under 
CMS. The records are written on private disk space and periodi- 
cally written onto tape for back-up protection and as necessary 



2 



when the available disk space is filled. The records are 
printed from the tape using FORTRAN programs operating under 
OS. Sorting can be done conveniently in CMS, but larger 
files must be sorted under OS and sorting program GETSORT 
was prepared for this purpose. It is also envisioned that 
once the files are constructed for a given year and written 
on tape that GETSORT and the accompanying print program LIST 
will be used to sort and print these files producing master 
copies for the library's use. 

Figure II . 1 shows the system design. 



File Creation 



Output 




Figure II. 1 
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C. Input Data for FACPUB 



The input data for the FACPUB system is organized in 
the library's records by individual faculty member. The pri- 
mary source of this information is through the annual Faculty 
Activity Reports. Obtaining accurate and complete data in a 
timely manner has been a major problem to the library. In 
fact a side effect of using the FACPUB system has been to 
identify a significant discrepancy between the records made 
available to the library and those in the academic departments. 
Previous issues of the volume entitled "Reoent NFS Puhlioations ' 
contain numerous entries not forwarded to the library through 
the Faculty Activity Reports. In 1978 a change was made in 
the form of these reports with the intention of soliciting 
more complete data for the library, but it is too early to tell 
if it has been successful. 

Another problem in the input data is that multiple 
authors will often report the same publication differently. 
Perhaps the titles will vary, or the citations might differ, or 
more commonly, the authors permute the names. 

Since the input data is organized by individual faculty, 
duplicate entries for multiple authors are expected. A signifi- 
cant manual effort would have to be made to avoid this dupli- 
cation and it was not felt to be worthwhile. Provision has 
been made within FACPUB to identify primary and secondary list- 
ings (see Section III -A3 for details) but for this to be success- 
ful it is necessary that duplicate entries (for multiple authors) 
all list the same first author. 

Another minor problem in the data is that some faculty 
members hold joint appointments between departments, and some 
have changed departments. This causes some ambiguity with 
respect to the department code assigned to each entry , but 
it is still possible to sort out any individual's publications 
by his faculty ID number. 
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III. DETAILED SYSTEM DESCRIPTION 
A. Record Format 

Each entry in the system is stored in a record 800 
characters long. The records are written by INPUT which is 
an APL program operating under CMS. Table II I. 1 is a descrip- 
tion of the contents of each record. Following the table is a 
further description of the contents of each field. 



Field No. 


Start 


End 


Length 


Contents 


1 


1 


3 


3 


Department Code 


2 


4 


4 


1 


Publication Code 


3 


5 


5 


1 


Print Code 


4 


6 


8 


3 


Faculty ID Number 


5 


9 


9 


1 


Security Classification 


6 


10 


12 


3 


Year of Publication 


7 


13 


13 


1 


Number of Authors 


8 


14 


43 


30 


Author Number 1 


9 


44 


73 


30 


Author Number 2 


10 


74 


10 3 


30 


Author Number 3 


11 


104 


133 


30 


Author Number 4 


12 


134 


163 


30 


Author Number 5 


13 


164 


193 


30 


Author Number 6 


14 


194 


223 


30 


Author Number 7 


15 


224 


253 


30 


Author Number 8 


16 


254 


493 


240 


Title 


17 


494 


736 


243 


Citation 


18 


737 


800 


64 


Translated Authors 



TABLE III.l. Record Contents 
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1 . Department code 

Up to three digits identifying the department code 
associated with the author for whom this publication is being 
entered. For faculty with joint appointments and faculty who 
have changed departments this is ambiguous, but probably the 
primary department or the current department should be entered. 
Field 4 allows a sort by faculty member so that all publica- 
tions of a specified author can be listed. 

2 . Publication code 

A one-character code which identifies the type of publi- 
cation according to the following scheme. The INPUT program 
accepts the library's two- or three-character code (in upper case) 
and translates it to the single-character form for storage in 
the record. 



LIBRARY'S CODE 


ONE CHARACTER CODE 


MEANING 


UNP 


A 


Unpublished 


BK 


B 


Book 


TBK 


C 


Textbook 


• PRC 


D 


Contributed Paper, not published 


PRI 


E 


Invited Paper, not published 


SYC 


F 


Contributed Paper, published in 
Proceedings 


SYI 


G 


Invited Paper, published in Proceedings 


SYE 


H 


Editor of Syirposiuin Proceedings 


LTR 


I 


Letter to editor 


TN 


J 


Technical Note 


PP 


K 


Paper Published in Journal 


PI 


L 


Invited Paper in open literature 


ABC 


M 


Abstract of Contributed Paper 


ABI 


N 


Abstract of Invited paper 


CHB 


0 


Chapter of book 
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LIBRARY'S CODE 



ONE CHARACTER CODE 



MEANING 



RPR 


P 


Project Report 


RPT 


Q 


NPS Technical Report 


PAT 


R 


Patent application or award 


REV 


S 


Book Review 


TR 


T 


Translation 


THE 


U 


Thesis 


MIS 


V 


Miscellaneous, pamphlets, etc. 



3. Print code 

A single digit used in the printing programs. Its pri- 
mary function is to suppress the printing of duplicate entries. 
Recall that the input is organized by individual faculty member 
and publications with multiple NPS authors will be entered more 
than once. The print code is assigned automatically by the 
INPUT program and has the following meaning: 

0 The faculty ID number entered in field 4 cannot be 
found in the list of faculty ID's. (The ID number 
should be checked or the faculty directory should be 
updated to include this author) . 

1 Primary listing. The faculty ID number of this record 
corresponds to the first author. 

2 The faculty ID number of this record does not correspond 
to the first author and the department code for this 
author is not the same as the department code for the 
first author. (This is a secondary listing but in a 
different department from the primary listing.) 

3 Same as 2 except the primary listing has the same 
department code as this record. 
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4 The first author is not in the faculty directory (he 
may be outside NPS , or the faculty directory may be 
incomplete) . 

5 The department code for the author with this ID nuinber 
does not correspond to the department code in the record 
(This normally indicates an error since we expect each 
faculty member's entries to bear his own department code 
The error may be in the record, or the faculty member 
may have changed departments and the directory should 

be updated. ) 



The logic for assigning print codes is shown here. 




Print Code = 3 
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Because of the difficulty in "backdating" the directory for 
past years, all new entries dated 1976 or earlier will be 
assigned print code = 1. Print codes 0 and 5 should not occur. 
If they do, they should be viewed as an indication that some- 
thing is wrong, probably with the faculty directory. 

In a complete listing of publications sorted by depart- 
ment and alphabetically by author only records containing a 
print code 1, 2, or 4 should be printed. This will suppress 
duplicate entries in the same department. 



4 . Faculty ID number 

A unique ID number associated with the faculty member 
for whom this record is being entered. The list of faculty 
members and their ID numbers is maintained as the faculty 
directory. For new faculty any number may be used providing 
it does not conflict with an existing faculty ID number. 
Section III.E contains a complete list of faculty and ID 
numbers . 



5 . Security code 

A single character identifies the security classification 
of the document. 

T = Top Secret 

S = Secret 

C = Confidential 

U = Unclassified 

The INPUT program expects this in upper case. 
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6 . Year of publication 

This will be the year of publication, presentation, sub- 
mission, patent application, or award, etc. The INPUT program 
will accept two or four digits, i.e. 79 or 1979. It will record 
only the 79 in either case. 



7 . Number of authors 

This field is self-explanatory, maximum of eight authors. 



8 . Author number 1 

This field should be typed as follows: 

Howard, G T 

Do not put punctuation after the initials and do not put pxinctu- 
ation at the end. Do include the comma after the last name 
followed by a space. Separate the initials by a space. (These 
are library requirements, the record will accept any string of 
30 characters.) 

9-15. Authors 2 through 8 . 

As above . 



16. Title 

Type with punctuation exactly as desired. (The printing 
programs will reformat the information for outputting.) Up to 
240 characters are allowed. The information is accepted exactly 
as typed at the terminal. For very short titles the information 
can be typed on one line, but the program expects two, so it is 
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necessary to hit the carriage return a second time. For very 
long titles do not hit the carriage return until the remaining 
information is less than 120 characters in length. For titles 
of intermediate length, say 160 characters, the operator might 
type 50, or 60, or more characters (at least 40 but fewer than 
120). Then hit the carriage return and continue with the re- 
maining information. 



17 . Citation 

Type as desired. The instructions given for the title 
field apply here also. A special requirement exists in the case 
of a book chapter (CHB) or a symposium proceedings (SYC or SYI) , 
The library requires that the information be identified in the 
output as follows; 



IN: 



To accomplish this the input should include an asterisk just 
before the information which follows "IN." The word "IN" should 
not be typed. The output programs will recognize the asterisk 
and replace it with IN in the format shown above. 



18 . Translated authors 

This field is of no concern to the user of the system. 
The INPUT program does not request information for this field. 
It is filled automatically by the INPUT program. It contains 
a 64 character translation of the author fields. The author 
fields are stripped of punctuation and rewritten here for later 
use in sorting the records alphabetically by author. 
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B . File Description 



The records described in Section III-A are constructed 
using INPUT, CORRECT and DISPLAY programs described in Section 
III-C. They are stored in CMS files under user-selected names. 

The INPUT program asks "what file"; and if no file 
with that name exists, it is created. New entries are written 
into the file in sequential order and the INPUT program reports 
the sequence number to the user at the terminal. 

Each file is closed by the INPUT program using the CMS 
command FINIS after each record is written. In the event of 
computer failure, user error, or a communication problem only 
the current record will be lost. 

The file size is limited only by the amoiont of private 
disk space available and this can easily be ascertained by 
issuing the CMS command s (for status) . Likewise the current 
files residing on the disk can be determined with the CMS 
command 1' (for list) . At any time the user should find there 
all previously constructed files unless they have been erased 
or unless there has been a disk failure. As protection against 
these possibilities, the files should occasionally be written 
on a tape . 

The files are MEMO files containing records 800 charac- 
ters in length. The file names can be changed using the CMS 
command ALTER. They can also be COMBINED, SPLIT, etc., but 
the records should be manipulated using only the APL programs 
INPUT, CORRECT, and DISPLAY. The user should not attempt to 
EDIT the records . 
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C. Program Descriptions 

This section describes the programs required to use the 
FACPUB system. They are divided into three main categories. 

The program listings are found in Section V (arranged in the 
same order as here) . 

1 . Programs Used at the Terminal 
a. Programs used during file creation 

INPUT : 

Purpose — This program works Interactively with the user to enter 
new records into the FACPUB system. 

Access : This is an APL program in the APL workspace called TT . 

The user must be signed on to CMS and must have entered the APL system 
by typing [apl] without the brackets. Then the user must issue the 
command r [*load tt] . The above requirements are explained in more 
detail in the user's guide ^ Section VI, Once 'these preliminaries 
have been completed, it is only necessary to type [input]. 

Description — The INPUT program asks the user for the information 
already described under "record contents,*' The first question asked is 
"What file?" , and the user may respond with any filename acceptable 
to CMS, It is suggested that the file names be selected to aid the user 
in recalling their contents , For example DEPT5279 might be the file 
for department 52 for the year 1979, Or the user might wish to have a 
file called ALL79 , or ADD78, After the user has responded with a file 
name, INPUT will ask ^for the department code and will give a message 
which says "enter z to stop," If the user does not stop, INPUT will 
proceed with the questions and when one record is complete , it will 
return to ask for the next department code. Each item will be written 
into the file originally identified^ To create a new file, exit from 
INPUT by typing z for the department code and then typing [input] 
again , 
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The INPUT program will create a file with the designated name 
if one does not already exist. If it does exist, the current record 
will be written in the file following the last record. A sequence 
nunter (row number, record number) is assigned to each entry as it is 
made. This number is printed at the terminal for the user’s reference . 

It is used in the CORRECT program to locate this record if corrections 
to it are necessary , and it is used in the DISPLAY program. (The 
sequence number of each record is also displayed when printing the 
files using the LIST program.) 

Occasionally the user will attempt to input information before the 
computer is ready to accept it. If this happens the message "interrupt” wij 
appear and the current record will be lost. The user should simply begin 
again with that record. 

It is not necessary for the user to SAVE or FILE his work (except 
when working with the faculty directory) since this is handled auto- 
matically by the programs. When the user has completed a session with 
INPUT or CORRECT or DISPLAY, he may simply sign off and his work will 
be retained. Likewise in the event of a computer failure (except the 
loss of the disk) all records except the one currently being input will 
be retained. 



CORRECT : 

Purpose — To work interactively with the user to correct existing 
records . 

Access — (when in the APL environment with the workspace TT loaded) , 
type [correct] . 

Description — After the user types [correct] , the program will 
ask "What file?" . After this question is answered, the program will 
ask "sequence number." The user should respond with the sequence number 
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(row number/ record number) referred to in the description of INPUT. 

Next he will be asked "field number." The user should respond with a 
field number between 1 and 17 as described in Section III- A (Record 
Formats) . The programs will cause the current contents of that field 
to be displayed and will ask the user to type the desired new contents 
or to hit the return key if the current contents should be retained . 

Then the question "field number" will be repeated . 

To exit from CORRECT/ respond with [0] (zero) when asked for 
the field number. Then the question "sequence number" will be repeated . 
The user can enter a new sequence number if he wishes to correct another 
record in the same file or he may enter [0] (zero) to exit from CORRECT. 

A special message will appear at the terminal if the user enters 
16 or 17 when asked for the field number. These fields are very long, 
240 and 24 3 characters / and it is unwieldly to have to retype the entire 
field to correct a small error. In retyping / new errors are likely to 
be introduced . The special message indicates that the user can hit the 
return key to keep the current contents / can type [XXX] to erase the 
entire field/ or can type three characters to identify the location 
of an error. In the last case the terminal will display the field from 
the beginning until the three characters are encountered and will ask 
the user to retype the remainder of the field. 



DISPLAY : 

Purpose — to display at the terminal the contents of any record 
(or records) . 

Access — (when in the APL environment with the workspace TT loaded) , 
type [display ] . 

Descri ption — The program will ask "What file?". After this 
question is answered, the user will be asked to identify the sequence 
number (s) (row number(s) / record number (s) ) of the record(s) to be 
displayed . He should respond with a list of record numbers separated 
by spaces. This will cause these records to be displayed . 
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b . Programs used to maintain the faculty directory 



ADDFAC ; 

Purpose — to add faculty with their ID number and department code 
to the faculty director^y . 

Access — (when in the APL environment with the workspace TT loaded) 
type [addfac] . 

Description — The ADDFAC program is self- documented , It will 
instruct the user to make a new entry into the directory in the following 
forma t : 



[ID space space NAME space space DEPT] • 

It will then display the entry and print a message ''if OK issue save 
commander if not reload TT." 

The program is modifying an APL variable AA which contains the 
complete faculty directory . In order for the change to be effective at 
the next session, it must be saved. This is done by typing the symbol 
for APL commands and the word save, [* save] or [ ) save]. 

If several incorrect entries are made before a correct one, and 
then the save command is issued, the errors will be saved too. To 
prevent this, if an error is made when dealing with the directory , it 
is wise to reload TT by typing [* load TT] or [) load TT] . 



FIXFAC ; 

Purpose — to make corrections to existing directory entries or 
to delete them entirely . 

Access — (when in the APL environment with the workspace TT loaded) 
type [ fixfac] . 
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Descri pti on- -The program is sel f -documented , It will ask 
the user to identify the entry needing correction by typing the ID 
number. This number should be unique and the program starts at the 
top of the directory looking for it. The program then asks if the 
entry is to be deleted or changed and gives instructions to do it. 

When completed, the program will remind the user to issue the save 
load tt command. (For explanation, read the description of ADDFAC.) 

SEE FAC ; 

Purpose — to display the faculty directory . 

Access — (when in the APL environment with the workspace TT 
loaded), type [seefac] . 

Descri ption — The program simply prints the APL variable AA 
which contains the faculty directory . The number of lines printed 
is equal to the number of entries in the directory . 

Programs used to write the files on tape 
LIBTAPE ; 

Purpose — the files constructed by the programs INPUT and CORRECT 
are not suitable for printing since they contain special APL characters 
not recognizable by the printer. LIBTAPE will translate these symbols 
to the intended form and will write the files on tape. 

Access — This program is to be used from the terminal when a tape 
is attached as device 181 with a ring. For example, suppose that a memo 
file called ALL79 is on the P disk. The following commands will ^ri te 
this file onto tape (suppose the tape has been positioned) : 



[filedef 01 dsk all79 memo] 

[$ libtape] 

Output will appear at the terminal indicating the number of records 
processed . 
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Description — It Is Important to understand that the file just 
written onto tape is a derivative of the file originally constructed 
hy the INPUT and CORRECT programs. It is for printing only and it can 
not be used as the parent copy for permanent retention. Corrections 
to these records and additional input must be done in the original 
(parent) file. 

The file just written onto tape is not in TAPE DUMP format 
and the tape command LOAD will not work on this tape. The LIBTAPE 
program writes an end of file (eof) after each file. If several 
files are to be written sequentially using LIBTAPE^ the series 
of commands above is repeated with the name of each file substituted 
for ALL 79 . 

The disk contains a compiled (TEXT) version of LIBTAPE. A 
FORTRAN listing is contained in this report. 

I CHAR : One other program^ ICHAR, is called as a subroutine . A text 

version is on the disk. 

2 . APL Programs Called as Subroutines by the Programs in 1 
APLNAME 

This APL program accepts user supplied input to construct a 
CMS filename . 

FILESIZE 

Examines a specified CMS file to determine the number of records 
it contains . 

WRITE 

f^rites an APL variable into a specified CMS file. 

WRITEERROR 

Identifies errors occurring when executing the WRITE program and 
returns a message to the user. 
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READ 



Reads the content of a CMS file and assigns it to an APL variable. 

READERROR 

Returns a message to the user if an error occurs in the READ 
program. 

RINDE X 

Check the user input "pub code" and finds the corresponding single 
character code . 

LIT 

Translates a numerical value to a literal. 



NUM 

Translates a literal to a numerical value. 

NAMECHG 

Performs a translation on the author fields removing punctuation. 

The output is stored in the record for later used in sorting 
alphabetically by author. 

B LANK2 

Examines a variable until 2 consecutive blanks are found. It returns 
the portion of the variable preceding the blanks. It is called from 
FACULTY. 

TRANS41AJ 

This program is required when using the I3M2741 terminal. It is 
used to translate the variable before writing in the file. INPUT, CORRECT 
and DISPLAY must be modi fie d for the 2741 terminal. 
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TRANSAJ41 



Used before reading (see TRANS41AJ) . 

PRNTCODE 

Automatically accesses the faculty directory and assigns the print 

code . 



3 . FORTRAN Programs Running Under OS Used to Produce Final Output 
LIST 

Purpose — This is the basic printing program for the FACPUB system. 

It is used to provide a sequential listing of any file after it has been 
processed by the program LIBTAPE . 

Description — The attached program listing is set up to print files 
11, 12, and 13 on tape LIB202 , The input data cards specify the number 
of files to be read and the number of records to print from each of the 
files. In this case the files contained 5 37, 476, and 614 records re- 
spectively. The contents of LIB202 is given later in Figure 14.1. 

The LIST program does no sorting on the input files; it simply 
prints them sequentially . For reference a sequence number is printed 
in the left margin. This sequence number is not part of the record but 
is appended by the LIST program. 

LIST formats the records as shown in the following example: 

200 55 UNP 3 9 U 78 

aarshail^ K T; Richards, F H 
Joint ORSA/TIMS index. 

Operations Research Society and The Institut 
Management Science, 1973. 

The first line contains fields 1 through 6. The remaining fields 
are the authors, the title, and the citation. Field 18 (translated 
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authors) is not printed. Notice that field 2 has been translated by 
LIST to the three character publication code. The record contains a 
one-character version of the publication code. 

The details of LIST can be obtained from the program listing, but 
it will not break words in the middle and it will paginate the output. 

The output is suitable for immediate reproduction or compilation into 
bound form although the user may wish to suppress printing of line 1. 

Recall from the description of INPUT that in the case of publication 
codes CHB, SYC, and SYI, an asterisk is to be entered in the record in 
place of the word *'IN.'* In this case, the LIST programs will output the 
record in the following format: 



54 SIC 1 176 U 78 



Elster, R S 

Summary of the conference 

Marine Corps and Navy Man and Woman-Power: 
Requirements and Considerations, Leesburg, 7a., 

7 , 1978 . 

IN Proc., Washington, D. C. , Smithsonian Inst 
1978, p. 16. 



Kar. 



• f 



When printing the final copy use 1010 on the job card to specify 
upper and lower case output. See detailed examples in Section IVB . 

A modification of the LIST program to cause it to begin a new page 
each time a new author ID is encountered is explained on the listing. 



GETSORT 

Purpose— —This program is used to extract se lected files from a master 
tape, merge them, and sort the resulting file as specified. 

Descri ption — The program listing shown selects files 11, 12, and 13 
from tape LIB202 and merges them into a single file. 
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The output from this program is put in file 1 on tape LIB999 . It 
can be printed from there using the LIST program with the correct JCL . 

As with the programs LIST, BOOK, and GETBOOK, this program operates 
on files which have been processed by LIBTAPE . 

BOOK 

Purpose — The BOOK program prints the publication entitled "Recent 
NPS Publications It requires an input tape containing the proper 
information already sorted^ The program GETBOOK prepares the input tape. 

Descri ption — The listing shown assumes that the input file is 
available as record 1 on tape LIB999 . 

The document printed by the BOOK program is divided into four main 
categories each containing several publication codes as shown below. 

a . Contributions to books 

i) BK 
ii) TBK 
Hi ) CHB 
iv) SYE 

b. Conference presentations 

i) PRC 
ii ) PRI 

c . Journal publications and conference proceedings 



i) 


PP 


ii) 


PI 


Hi) 


SYC 


iv) 


SYI 


V) 


ABC 


Vi) 


ABI 
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d . Technical reports and notes 



i) RPT 
ii) TN 

within these categories (a, h, c, d) the records must be sorted 
by deparment code. Any further sorting is optional . (The listing 
shown for GETBOOK also sorts alphabetically by author and by year.) 

The BOOK program prints the contents of the specified file in 
a format suitable for immediate reproduction . It begins a new page 
each time a new department code is encountered and it puts a new page 
header each time a new category of publication (as defined under a, b, 
c, and d above) occurs. The pages are labelled with the name of the 
department providing it is one of the academic departments 52 , 53, 54, 

55, 56, 61, 62, 63, 64, 67, 68 or 69. Other department codes, such 
as 012, will appear on separate pages with no department heading printed. 

When printing the final copy use 1010 on the job card to specify 
upper and lower case output. 



GETBOOK 

Purpose — This program will extract specified records from the files 
and sort them in preparation for using the BOOK program. 

Description — The program shown will examine records from tape LI3202 
in files 11, 12 and 13. It will extract records and put them in groups 
as defined by the data cards. In this case there are 4 groups, 4 types 
of publications in the first group, namely those with publication codes, 
BK, TBK, CHB, and SYE . There are 6 in the next group, etc. 

As each record is read, the program determines if it belongs in 
group a, b, c, d or none of these, if none, the record is bypassed. 
Otherwise the publication code is changed to A, 8, C or D. The records 
are then sorted as required by the BOOK program and written on the tape 
LIB999 as file number 1. The contents of tape LIB202 are not altered. 
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D. Special Variables Used in the APL Programs 



This section describes several special variables used 
in the APL programs. Included is a description of the use 
of each variable and a print out of its value. 



FIM 



This variable is used as an index to the data fields. 



It 


shows 


the 


Starting 


location 


(minus 


one) 


for 


each 


field 




and 


the 


field length. 
















0 


3 


u 


5 8 


9 1 


2 13 


43 


73 


103 


133 


163 


223 

3 


253 

1 


493 

1 


3 1 


3 


1 30 


30 


30 


30 


30 


30 


30 


240 


243 



















PCM 

This variable is a list of the APL characters corre- 
sponding to the three character publication codes. 

4- T* 
i’ 

~i ' 

*p n 

*Q i 

r tn 
rt i 

r+e 

□~p 
~T 
* ★ 

★ 1 
am 
all 
n Al 
P*P 

p 

★a 

P €U 
-P 

1 iT 
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PCV 



This variable is also used in assigning the publication 
code. It contains a list of the APL characters corresponding 
to the single character publication codes. 

ainLe_7Ax» 'GlTO*?pr~-i'U 



SECV 

The APL characters corresponding to the four acceptable 
security codes are stored in this variable. 

-t'D r- 



LCV 

This variable holds the APL character corresponding 
to the lower case values for each character of the alphabet. 
It is used in the function NAMECHG. 

ABCDEFGtilJKLMNOPQRSTUVWXYZ 
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ucv 



This variable holds the upper case value for each 
character of the alphabet. It is also used in the function 
NAMECHG. 

axnL€_7Ai<» ’□! T0*?pf~ + u&;:5tc + >, . 



AA 

This variable holds the faculty directory. See the next 
section . 



NFAC 

This is the number of entries in the faculty directory AA. 
Each entry occupies 20 positions in AA. The variable NFAC is 
used in the programs ADDFAC, FIXFAC and SEEFAC. 
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E . Faculty Directory 



The current faculty directory is shown below. It 
is stored as the APL variable AA. The format is: 



FIDNAME ADC 

where 

FID = faculty ID 

(3 characters, right justified) 

NAME ... = name 

(14 characters, left justified) 

ADC = academic department code 

(3 characters, right justified). 



The faculty ID and the academic department code are right 
justified to match the contents of fields 4 and 1 in the records. 
The directory below has been retyped for readability 

with a different spacing than that actually contained in the 
variable AA. 
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FACULTY DIRECTORY 



137 


Tolies, W M 


12 


92 Andrus, A F 


55 








15 Barr, D R 


55 


135 


Johnson, J R 


35 


47 Brown, G G 


55 








94 Butterworth, R 


55 


46 


Barksdale, G L 


52 


125 Esary, J D 


55 


91 


Bradley, G H 


52 


95 Forrest, R N 


55 


181 


Burkhead, F 


52 


96 Gaver, D P 


55 


191 


Hanuning, R W 


52 


97 Hartman, J K 


55 


51 


Kodres , U R 


52 


98 Howard, G T 


55 


138 


Matula, D W 


52 


126 Jacobs, P A 


55 


52 


Raetz, G M 


52 


1 Larson, H J 


55 


48 


Rahe, G A 


52 


2 Lewis , P A W 


55 


49 


Roland, R J 


52 


127 Lindsay, G F 


55 


180 


Schell , R R 


52 


3 Marshall, K T 


55 


50 


Schnei dewind. 


52 


4 Milch, P R 


55 








5 Neil, D E 


55 


53 


Comstock, C 


53 


6 Parry, S H 


55 


54 


Davis , D L 


53 


128 Pilnick, S E 


55 


55 


Franke, R H 


53 


7 Poock, G K 


55 


172 


J ay achandr an , 


53 


8 Raike, W M 


55 


132 


Kildall, G A 


53 


154 Read, R R 


55 


173 


Kovach , D 


53 


9 Richards , F R 


55 


19 2 


Marks , H B 


53 


10 Shubert, B 0 


55 


56 


Russak, I B 


53 


11 Shudde, R H 


55 


57 


Schoenstadt, A 


53 


12 Sovereign, M G 


55 


59 


Trahan, D H 


53 


13 Taylor, J G 


55 


187 


Wang, P C C 


53 


14 Thomas , M U 


55 


58 


We ir , M D 


53 


130 Tysver, J B 


55 


60 


Wilde, C 0 


53 


155 Washburn, A R 


55 








131 Zehna, P W 


55 


20 


Arima , J K 


54 






156 


Creighton, J W 


54 


193 Burke, D P 


56 


21 


Derr, C B 


54 


29 Daniel, D C 


56 


176 


Elster, R S 


54 


27 Magnus, R H 


56 


41 


Eoyang, C K 


54 


194 Schutz B M 


56 


16 


Fremgen , J M 


54 


195 Sherwin, B M 


56 


22 


Giaugue , W C 


54 


204 Stolfi, R H 


56 


23 


Haga, W J 


54 


28 Valenta, J 


56 


24 


Jones, C R 


54 






17 


Judson, R R 


54 


203 Buskirk, F R 


61 


18 


Kline, M R 


54 


164 Cooper, A W 


61 


129 


Lanson 


54 


190 Cooper, J N 


61 


123 


Liao, S S 


54 


99 Coppens , A B 


61 


121 


McMasters, A W 


54 


107 Crittenden, E 


61 


122 


Paringer, L 


54 


100 Fairall, C W 


61 


25 


Senger, J D 


54 


101 Harrison, D E 


61 


26 


Weitzman, R A 


54 


165 Kelly, R L 


61 


19 


Whipple, D R 


54 


136 Kinney, G F 


61 


124 


Wright, C A 


54 


167 Medwin, H 


61 
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FACULTY DIRECTORY Cont. 



166 Milne, E A 
177 Moose, P H 

102 Novarini, J C 
163 Pitthan, R 

169 Reese, W 

103 Reinhardt, R A 

170 Rodeback, G W 

104 Sanders, J V 

105 Schacher, G E 
168 Schwirzke, F R 

106 Wilson, 0 B 

148 Adler, R W 

157 Baycura, 0 M 

36 Burton, R W 
147 Chan, S G 

43 Duffin, J H 
146 Gerba, J A 

37 Hoisington, D 
133 Holl, S T 

38 Kirk, D E 

44 Knorr, J B 

158 Myers, G A 

39 Ohlson, J E 

45 Panholzer, R 

40 Parker, S R 

30 Powers, J P 
4 8 Rahe 

145 Rothauge, C H 

31 Sackman, G L 

32 Stentz, D A 

33 Strum, R D 
42 Tao, T F 

34 Thaler, G J 

35 Titus, H A 

159 Wilcox, M L 
185 Wozencraft, J 

73 Chang C P 

74 Davidson, K L 

75 Elsberry, T L 

76 Haltiner, G J 

77 Haney, R L 
199 Lau, K M W 

78 Renard, R J 
179 Van Der Bijl, 

79 Williams, R T 



61 


189 


61 


93 


61 


142 


61 


161 


61 


162 


61 


141 


61 


140 


61 


109 


61 


110 


61 


183 


61 


134 




184 


62 


186 


62 




62 




62 


111 


62 


150 


62 


112 


62 


151 


62 


152 


62 


113 


62 


114 


62 


115 


62 


116 


62 


117 


62 


149 


62 


118 


62 


119 


62 


153 


62 




62 




62 




62 


65 


62 


61 


62 


182 


62 


66 


62 


67 




62 


63 


68 


63 


69 


63 


63 


63 


70 


63 


71 


63 


64 


63 


143 


63 


144 


63 


72 



Blandin, J S 64 

Blandin, S W 64 

Boynton, RE 64 

Brennan, J P 64 

Doran, E J 64 

Frederiksen, P 64 

Plotkin, N 64 

Pluta, J E 54 

Rittenoure, R 64 

Saunders, RE 64 

Sohlberg 64 

Whitney, G A 64 

Young, R D 64 

Ball, RE 67 

Bank 6 7 

Biblarz, 0 67 

Gawain, T H 67 

Kahr, C H 67 

Layton, DM 67 

Lindsey, G H 67 

Miller, J A 67 

Netzer, D W 67 

Platzer, M F 67 

Schmidt, L V 67 

Shreeve. R P 67 

Simmons, J M 67 

Zucker, R D 67 



Andrews , R S 68 

Bourke , R H 68 

Chace, A B 68 

Denner, W W 68 

Garwood , R W 68 

Haderlie, EC 68 

Jung G H 58 

Leipper, D F 68 

Paquette, R G 68 

Thompson , W C 68 

Thornton, E B 68 

Traganza, ED 68 

Tucker, S P 68 

Von Schwind, J 68 

Wickham, J B 68 
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FACULTY DIRECTORY Cont. 



160 


Boone, D H 


69 


86 


Brock, J E 


69 


171 


Can tin, G 


69 


200 


Cooper, T E 


69 


80 


Fuhs , A E 


69 


139 


Garrison, C J 


69 


81 


Houlihan, T M 


69 


87 


Kelleher, M D 


69 


88 


Mar to, P J 


69 


82 


McNelley, T R 


69 


89 


Newton, R E 


69 


201 


N guyen , D H 


69 


83 


Nunn, R H 


69 


84 


Perkins, A J 


69 


178 


Salinas, D 


69 


90 


Sarpkaya, T 


69 


85 


Vanderplaats , 


69 



Faculty with joint 


appointments 


91 


Bradley, G H 


55 


47 


Brown, G G 


52 


156 


Creighton, J W 


55 


120 


Elster, R S 


55 


50 


Schneidewind, 


54 


137 


Tolies, W M 


61 


187 


Wang P C C 


56 




Faculty with 


joint appoint' 



ments will be listed in the 



directory for each department, bu' 
they will have the same ID number 
for each listing so that sorting 
by faculty ID number will put 
all the citations for that facult; 
member together. 
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F . The Input Terminal 



If the IBM 2741 terminal is used for the input or 
correction of records, a modification is required in the APL 
programs INPUT, CORRECT and DISPLAY. It is necesary to trans- 
late the record before it is written into the file and to trans- 
late it back whenever it is read at the terminal. Two very 
brief APL programs are available for this purpose. They are 

1. TRANS41AJ, used when writing from the 2741. 

2. TRANSAJ41, used when reading at the 2741. 

These two programs must be used if the correct character set 
is to be obtained. 

Any ASCII data terminal can be used with the programs 
as described in this report. If there is any doubt a dummy 
record containing all the upper and lower case letters, the 
numbers and all special characters needed should be input. 

It should then be written on tape using the LIBTAPE program, 
and printed using LIST to complete the test. 
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IV. DETAILED OPERATING INSTRUCTIONS (USER'S GUIDE) 



A. The Input Process 
1. Signing on to CMS 

The best source of this information is the NPS user's 
guide. The brief information here is for completeness only. 

a) Turn on the terminal 

b) Establish communication. If by phone, dial 3025 and attach 
the receiver to the acoustic coupler. 

c) Type break or attention - 

d) Type L^1182pYY 
where 



XXXX = user number 
YY = terminal number 
A = space 



e) Type AAAABBBB 
where 

AAAA = project number (use 0525) 

BBBB = cost code (use 1423) 



In addition to its responses between the above steps, 
the terminal will end this sequence with a message indicating 
that CMS has been entered. To confirm this, a carriage return 
can be typed and the response should be "cms." 

At this point the s (status) and 1 (list) commands 
can be issued to see how much disk space is available and what 
files currently exist. Other CMS commands can also be executed 
at this time. (Do not EDIT the files.) 
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2 . Entering APL 



a) When in CMS, type apZ then a carriage return. The system 
should respond with: 

A*P*L\N*P*S 

LIBRARY DOCUMENTATION SYSTEM. . . *LOAD. . . . 

If any symbol other than * appears before LOAD, type that 
symbol followed by off ams. This should return the user 
to CMS. Repeat Step 2. 

b) If APL has been entered successfully, the type element 
should move over 7 spaces before coming to rest. To 
confirm that the user is in APL he can hit a carriage 
return and the type element should again move over 7 spaces. 

c) Before the programs described in this document can be used, 
the work space called tt must be loaded. This is done by 
typing load tt. 

d) The user can now type INPUT or CORRECT or DISPLAY as desired. 
These program are self-explantory . After exiting from 

any of these programs (into APL) , the user can re-enter 
any of them by typing the appropriate program name. 

e) After loading the work space TT (step c) the directory 
maintenance programs ADDFAC, FIXFAC or SEEFAC can be used. 
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3. Signing Off or Returning to CMS 

a) To sign off (from APL) type * off. Wait until the terminal 
responds then turn it off and hang up the phone. 

b) If the user wishes to return to CMS (from APL) he should 
type * off oms. After the terminal responds, the user 
may wish to confirm that CMS has been entered. The CMS 
commands can be issued, APL can be re-entered, or the user 
can sign off by typing ap log. 

c) One other environment might be entered inadvertently, 
namely CP. If a carriage return produces the response 
cp , the user should type i oms to re-enter CMS. 
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B. Printing Reports (including examples) 



Once a master tape (LIBTAPE version) of the files 
has been constructed, sorting the files and printing final 
copies of the output is a fairly straightforward process. 

This section will assume the existence of a master 
tape LIB202 whose contents are as shown in Figure IV. 1. 
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FILE 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 



Tape LIB202 



Coininents 



LIBTAPE 

EOF 

TT 

EOF 

I CHAR 
EOF 

I PACK 
EOF 



SDAPRE76 

EOF 

SDAALL76 

EOF 

SDAALL77 

EOF 

SDAALL78 

EOF 

SDAALL79 

EOF 

SDAPRE76 

EOF 

SDAALL76 

EOF 

SDAALL77 

EOF 

SDAALL78 

EOF 

SDAALL79 

EOF 



o 

o 



cn 



cn 

w 

JO 

M 

tr* 

P3 

cn 



f 

H 

w 

S 

> > 
cn na 
pa 
pa 

JO < 



ipa 

H 

f 

pa 

cn 



JO 

cn 

H 

O 

z 

o 



\/^AAA^VVVW^A^ 



-Text version of LIBTAPE procra 
-End of file mark 

-The APL workspace TT 
-Text version of ICHAR 
-Text version of IPACK 



-All pre 76 records, sorted by 
department and alphabetically 



by 


first author 


(175 records) 


-All 


76 


records , 


sorted 


(537 re 


-All 


77 


records , 


sorted 


(476 re 


-All 


78 


records , 


sorted 


(614 re 


-All 


79 


records , 


sorted 


(3 re CO 



-These are LIBTAPE versions 
of the master records ready 
for sorting and/or printing 



Figure IV. 1 
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1 . Example 1 . 

To print (the LIBTAPE version of) the files contained 
on tape LIB202, the following steps are required. 

a) Be sure that the tape is available to the computer center. 
If it is stored there, it is available. If it is stored 
in the library, it can be delivered over the counter in 
the computer center. 

b) Submit the LIST program through the card reader in the 
computer center. 

i) The job card should have the following form 



//EXAMPLE! JOB (I 



052 D ^ i 423 j :■ 2 0 ? 1 0 1 0 > 



HELLOS TIME=4 



0 0 0 0 0 0 0 0 0 0 0 0 G 0 0 1) 0 0 0 G 0 C 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 3 0 9 0 0 0 0 3 0 0 0 3 0 0 0 0 3 

1 2 3 4 5 S I I ! 13 II 12 13 !4 15 U i? 1! :J 23 21 22 23 'A V. A 21 21 23 29 31 32 31 35 2: 31 2! 33 43 4! »2 43 44 15 4j 41 a «3 :! 51 52 53 : 1 55 5S ;f 5! 53 [3 s2 53 H iS ii {1 H 3 ; 1 ‘ j ;» ' ! i 13 

11 nil 1 nil nnnn ninnii i n i n n n n n n n n n n n n n n i n n i n n 

2222222222222 22222 222 2222 222 222222222222222222222222222 ; 2 2 2 2 2 2 2 2 2 2 2 2 

3033333 333333333333 3333 333 33 



3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 J 3 3 3 3 3 3 3 3 3 



4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 I 4 4 4 4 



53 55555 555555 555555 5 555555555555555 5 5 555 5555 555 
B 6 6 0 0 G 5 0 6 6 6 5 G 6 G 5 3 6 8 8 5 3 5 0 S S S G 6 3 S S 3 0 G G G S 3 G 0 5 S 3 6 5 6 5 5 3 8 8 5 8 



M.? 






b' / 1 . 






4 4 ! 4 4 4 ; 4 



J : J b 



^ . 



S S 5 G G 5 G n 



3 8 3 8 8 B 8 8 3 S 3 S 3 8 S 3 8 8 3 8 8 3 8 8 8 



8 8 3 8 S 8 



8 8 3 8 8 3 8 8 8 8 3 3 o 3 8 3 5 8 3 3 3 3 3 3 3 3 S o 3 3 3 8 8 



9 9 9 9 9 9 9 9 9 9 S 9 9 3 9 J 9 9 9 3 9 9 9 5 0 3 9 9 9 n 3 3 9 9 9 9 3 9 9 9 9 3 9 9 9 9 9 9 9 9 9 9 9 9 3 3 9 9 8 9 9 9 9 9 9 3 9 9 3 9 9 3 9 3 9 9 3 9 

I 2 3 4 5 I ) I 5 15 n u !i i; IS I- i; i 'S j 2 i V. :: :i :s :: ?i :i u ;a :i 32 13 u :s :i :i 3i 4 n n <3 <4 <5 a a n *3 fi si s: s3 is * j3 si s 2 ? :i ss (S a 4 i n j : : 4 •- j ; » ? n 

DOS- 15299 



The interpretation of this card is 
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EXAMPLEl 



JOB 

1182 

0525 

1423 

20 



1010 



Hello 



Time 4 



= user selected name (title on printout) 

= identifies "job" card 
= user number 
= project number 
= mail code 

= this calls for a maximum of 20 thousand lines 
of output. If this is too small, the job 
will not finish printing. This estimate is 
generous for this job. 

= this calls for overnight printing with the TN 
chain (upper and lower case) . The job will 
not be available until the next morning. The 
job will be available behind the counter 
in the computer center. This field can be 
deleted to get an "immediate" print out with 
upper case only. 

= user selected identif icatior. to appear on 
printout. 

= estimate of time required in minutes. Four 
is a generous estimate . 



i) The JCL cards should have the following form. These 

15 cards will replace the first 9 JCL cards shown 
in the program listing. 
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FIRST CARD 

//GD. FT 0.?F OO i DD Dr:p-^.DLD- KEZF> . UriIT=540‘:i--i, DSM^fiDlN 
// DCB=<;PFCFr'1=F£i L:-'FCL=oOO> BLK'S I ZE=-5nM, rrn=£') . 

// LABEL^aO-riL* « I.M:** v'GL=( > PFTHiri- ZE;-:=L I BZOZ:* 

Dl! LI S'P=':DLD* KEEP'- - !Ji II r=HFF=FTi;ip'^0-:i 1 , DEM=wDD' 
■'/ DCB=CREuFrl=FL* LR:.'^L=oUU.' BLK3 IZl= 800’ Lt.li=E - « 

' • LABEL= < 1 i .. ML - « I • J . VDL= ( RET A 1 1 h jER I FE OE 

LL LI iP=(;aLL-KEEP>-UMIT^HFF=FT 08 n;iUl . D':M=hDLi 

// DC£:=(RECFN=FE:’ L?ECL=80i;i- BLKEIZE=800i riE;l=E:' ' 

// LhEEL = < 12- MLj « IID . VGL=c: - RETAIil- lER^LIBEOE;* 

LD D I EP= -s OLD - KEEP .< Ul 1 1 T=hFF=1 T iJ'':'F U U 1 - LEI l=ADD > 
/ / LL'Ei=<IRECFH=F £• - LRllL^';' U U j ELt-. :> I ZE=y ij U ’ DEfI— c!.- • 

// LABEL^aE-HL- - IH><'v' 0 L=(jRETAII)-EER=LIBEi;i 2 ;- 

LL LIEF- (DLL’ KEEP) - UMIT^AFF=FT08Fi;i0i , DEH=ADD» 
// LCB=<RECFM=FB.’ LRECL=300* BLKEIZE=3ui;i’ LEfi=2> - 
/■/ LABEL=( 1 4> HL- .* IH> « VDL=( ? RETAIH- EEF!-LIE'2iJ2.- 



LAST CARD 



0 0 0 0 C 0 0 0 0 0 0 0 0 0 0 0 0 0 G 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 C 0 0 0 3 0 0 0 0 0 0 0 0 0 0 5 0 0 C 0 0 a 0 0 0 D 2 C 0 ‘J Q C 0 0 0 0 

1 2 3 4 1 t I 4 I ii II tj ij 14 11 IS n I :i n :? :i u ii :s :i ;i :i ii m ii 33 n n :i :/ .1 :i <s <1 << « m <3 j 11 i; \i a is i? 51 h c: l •: h ;i a u u c» ; . i * ; 

11 1 1 ! 11 n 1 1 1 M 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 n 1 11 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 i 1 i 1 ; 1 1 1 1 1 ) 



C 3 

A :i 

1 1 



2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 ? 2 2 2 2 2 2 2 ‘ 2 2 2 2 ? 2 2 2 2 2 

M . 

3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 2 3 3 3 3 3 3 3 3 3 3 K 



2 2 

- ^',3 3 3 3 3 3 3 3 .• 3 



4 4 4 4 -1 4 4 4 4 4 4 4 4 4 4 -1 4 4 4 4 4 4 4 4 4 4 4 4 4 44 -M 4 4 4 4 4 4 4 4 4 4 1 4 -1 4 4 4 4 •; 1 4 4 4 



.4 

. \ J r f; - r. r c; ; 

G G G S 8 8 G S u B 6 6 S e 8 G S S C 5 S 8 C S G G 3 S G G G C G 6 6 S C G S 6 S 5 G G 8 6 C G G G 5 G C C 5 5 5 V ','3 3 G G 5 3 3 3 

1111 1111111 111111111 11 iin 111111111 mill 11111111 n mil 11 iimim 



\ •! ; : u 1 ' 






5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 S 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 3 / 



s -^ ) 



1 1 



8 8 8 8 8 3 : S S 8 3 8 I] 3 3 8 8 3 3 3 a 8 8 8 8 8 M 3 8 3 8 8 3 U 3 8 a 3 3 e 3 3 3 83 U 3 S C 8 8 3 S 3 C B 3 8 C S 3 U 8 3 S S S L S 3 3 0 3 



9 3 S 9 9 9 9 9 9 3 9 9 3 9 9 9 9 9 9 9 9 9 G 9 9 9 9 9 9 'J 9 5 9 9 9 2 9 9 9 3 9 9 3 9 9 9 9 3 9 S 9 5 G 0 3 0 9 9 9 9 S 9 9 S 3 0 9 C 3 2 3 3 0 G 9 3 G 2 0 S 

I ] j 4 1 ( I I 1 II 111! t] u 11 IS II !i 1 ) li it n n ;i :: ?i ii ii ii i; n a ii a ii :s :i ^4 <i u u u <i u <i u n it it i; ii ii ii n ii ii :i ii ss u u u i *; t* 'i i'. i :i i : ti 
00>- 13299 
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iii) The data cards should be 



FIRST CARD 

5 

175 537 47b 614 



LAST CARD 



0000000000000000000000000000000000000000000000030000000000309000000000300 
I I ] t s ( I ( ) II II ;7 1 ) It li i( j u I) ;g ;i v n ;< a :i :i :i 3i ii >i i) :« a :i ii :i :> •) « <i « <s *< •> <i <> si s< v u si si si si « ii a ii ii is e: ii ei a ii n i: n 

1 1 1 1 1 11 11 1 11 1 n 1 11 n 11 11 1 1 1 11 11 1 n 11 n n 1 11 1 n n n 1 1 1 11 1 n 1 1 11 n I n 11 n 1 1 



2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 X). 



2 2 2 2 2 



3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 0 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3;^ 3 3 



4444444444444444444444444444444444444444444444444444444444 



444 



5 5 5 5 5 5 5 5 5 5 5 5 5 5 3 5 5 5 5 5 5 5 5 5 5 0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5^| 



&6 6 S 6 S S 8 S S C S S S 6 6 6 6 6 6 G 6 G 6 3 S 6 S 6 S 6 S 5 e 6 6 S 6 G 6 6 S S 6 B 6 S 6 G 6 6 B S G 6 S G 



77777777777777777777777777777777777777777777777777777777777 




8 8 8 8 8 8 8 8 S 3 3 3 3 3 8 3 3 3 8 3 3 3 3 3 a 3 ? 3 3 8 3 3 3 3 0 3 3 3 3 3 8 8 8 3 3 3 3 0 3 3 3 3 8 3 8 8 0 3 8 8 3 3 8 3 3 8 3 3 3 3 8 3 3 



9 9 9 9 9 9 9 9 0 9 9 3 9 9 8 9 9 9 9 S 9 9 9 9 3 9 9 9 9 0 9 9 9 9 9 9 9 9 9 9 9 9 9 3 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 S 9 9 9 9 9 3 

I 2 3 4 3 ( I I ) II n t: in 4 13 ini i( i! 21 72 23 24 :s 21 21 is :: 31 2: n 34 :j 37 :• i! n 41 42 n u (S 4 ( 47 41 4 ! is 51 u 53 34 is si n m s 9 sa si S2 's 14 u u s; n u ;s v fi 1: 

DOS- 15299 



These will replace the two data cards shown in 
the program listing for LIST. 

The final /* card (orange card) is not shown 
on the listing. It should be added before sub- 
mitting the job. 

The job setup just described will produce a printout of 
the files 10 through 14 from tape LIB202. The records in each 
file will be numbered sequentially. 

The tape LIB202 will not be changed. 
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2. Example 2 



This example assumes that the user v/ants to select files 
11 (SDAALL76) , 12 (SDAALL77) and 13 (SDAALL78) from tape LIB202, 
merge them, sort them according to department code, then publi- 
cation code, then year and print the results in a single sequential 
listing. 

The following steps are required: 

a) Be sure tape LIB202 is available to the computer center 
(see Example 1) . 

b) Select a "scratch tape" and make it available to the computer 
center. This example assumes tape LIB999 is used. 

c) Two jobs will have to be submitted, separated in time. The 
first job using GETSORT will prepare the information on 
tape LIB999. When this is completed (it should take any- 
where from a few minutes to an hour or two depending on hov/ 
busy the computer center is), the second job using LIST 
should be submitted. 

1 . USING GETSORT (refer to listing) 
i) Job card 

//EahHPLEIB joe < 1 1S2j 05c’ 5- 1423> . ’ HELLO' i TIME=4 



0 C 0 0 0 0 0 0 fl 0 0 0 0 0 9 0 0 0 9 0 9 0 0 9 9 0 9 0 0 0 0 0 0 0 0 C 0 0 0 3 0 0 9 0 0 0 9 3 0 0 0 0 0 0 0 0 0 5 5 0 0 3 

I 2 3 < i s I ! i -1} n :: !j -4 li -s 17 Ji u n 22 23 n 2i :i :? .1 n :: :i n .< 3 S 77 n «i a a n .-9 51 n si a a ;; y. :i .-j ij ii w ‘3 ;< a cj 4' 3 

n 1 11 1 n 1111 11111111 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ; 



J J 0 -J 0 0 3 j 
11111111 ! 



222222222 2 
3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 



' e *. * j 



2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2,n'v . 

> \ 7 c,'.' .Iv'A 



3 2 



3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 -'r.;' 

'■'.-•J' 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 14444444444444 44 444444441144 \^A 

r'\\ • '; 



55 55555 355555 555555 



55553 5 5 555 5555 5555 



■ 5 5 5 : 3 5 5 5: / j 3 i 



9 0 5 6 6 6 9 9 5 0 6;; G 6 S 6 6 3 5 3 9 G 6 6 5 0 G 5 C 9 G 9 3 9 5 G 3 9 G 0 5 : 5 5 0 9 5 G 0 6 9 S G 5 O' ' 



in 11 ini ininnnniniiniimmnnrrnminiiiiii 1 




8 3 3 S S 3 5 S 8 5 3 8 3 3 3 3 3 3 3 3 8 3 ? 3 8 3 



3 3 3 3 8 6 8 i 3 3 3 3 8 0 3 S S 3 3 9 5 3 3 8 3 3 8 3 3 3 3 3 3 3 



9 9 9 9 9 9 9 3 9 9 3 3 9 9 9 9 9 9 3 9 3 9 ^ 9 9 9 3 0 J 9 9 9 9 9 ! 3 9 3 9 3 9 9 9 9 9 9 9 9 9 9 9 3 J 9 9 9 9 9 9 3 3 9 9 9 9 9 9 ' '1 

» 7 J < J » I I ! *. n 1; •] H 11 I N ii 1! :i .1 :j .1 J ,i .i I i I ]i ]| L )J K ij .< i, ], ,■ .] t\ U n <5 tk W 1) <9 :l A y 53 1) i • I y t) u •' y ij {j ,, 45 1 

- J5Z9V 
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See example 1 for interpretation. No lengthy 
output is required, no printing is needed, thus 
the 20 and the 1010 have been deleted from the 
job card. 



ii) JCL 

The JCL cards shown on the GETSORT listing 
already point to files 11, 12, and 13 (cards 24 
through 32) on tape LIB202. These JCL cards are 
in groups of 3 and other groups can be added or 
some of these can be removed to point to a differ- 
ent file. 

The third card from the end in the GETSORT 
listing points the output to file 1 on tape 
LIB999. It is correct for this example. 

iii) Sort fields 

The last card shown should be changed for this 
example to 

Sn.RT FIELDi:=a . 3.« BI ? A? 4j 1 ..-BI > Avi 0? 3« El j A> - 3IZE=E3i:iij0 



0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 9 0 0 0 0 0 0 0 0 0 0 0 0 0 a 0 0 0 3 0: 

' • * ‘ ^ * ’ * ’ >5 ^ > '5 •’ 22 :: ih n :i 33 :? ji :s 35 3; :i 3 i <i <2 <3 u <s a u <t <5 i; sj ij 52 n i* n 12 1] u a v a r. 'j 2 :j 15 « 

^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ J ^ ^ Mill) 111 111] 1 1 1 n 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 11 1 1 1 1 11 11 1 I I 1 



22 222222222 222222 22222222 22:222222 22222 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2X^Vl?^ 2 2 2 2 2 2 2 2;: 

33 33 333333 333333 3 



33333 3333 33333 



3 3 



3333333 



4 4 4 4 4 4 4 4 4 ; 4 4 4 4 4 ‘ ' 4 4 -1 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 1 ■* ^ 



A 



3 3 3 3 3' 



1-S4 4 44< 



5 0 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5)' ) | :• f^S 5 5 5 5 5! 

- - ^ - c-'./ I 

5 5 5 5 0 6i: 



GGS GSS G6666 GGlGGGCGGGGGSGGCOGGGuGGGCGGGGGGGGG 5G5GG05S 
7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 2 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 



O^n imnir 



8 3 8 8 3 3 3 8 3 3 3 3 3 8 8 3 8 8 8 ? 8 3 3 3 8 3 3 8 8 3 3 3 8 3 8 8 8 3 3 8 3 3 8 3 3 3 3 3 3 8 3 3 8 3 8 3 3 8 8 J :■ 

9 9 3 3 9 3 9 3 S 9 9 9 D9G 3 9 9 3 9 3 9 3 9 9 9 9 9 9 9 9 9 9 3 3 3 9 9 3 9 9 9 3 9 3 9 9 9 9 9 3 9 9 9 9 9 3 9 9 9 9 9 9 9 9 T’ 9 r' 

' ^ ’ ' ' ' iV'M ' * ' ' ' ‘ '■ ■ * ■' ■* ■' ■' ■' '* ■' ■' ■' ■' ■’ ■’ ■■ ■’ “ " '' ‘ " ‘‘ ‘‘ •' •' •* ' *' " ” ■' '• “ “■ *' '■ 
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The final /* card (orange card) is not 
shown in the listing. It should be put on the 
end of the deck before submitting. 

The output received from this job will include a brief 
statement indicating that 1627 records were processed. 



2 . USING LIST 

i) Job card (see Example 1) 

10 (thousand) lines of output should be adequate. 
1010 should be used on the job card to get the 
upper and lower case output 
time = 4 is sufficient 

ii) JCL (see Example 1) 

The input file is now on tape LIB999 in file 
nximber 1. Modify the JCL in LIST accordingly. 

iii) The data cards in LIST should indicate 1 file, 

1627 records. 

The /* card (orange card) completes the deck. 
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C. File Management 

The FACPUB system can be viewed as having three major 
divisions : 

1. The input process consisting of terminal sessions using 
the programs INPUT, CORRECT, DISPLAY. 

2. The file management process consisting of transferring the 
disk files to tape. 

3. The output process consisting of using LIST, GETSORT (and 
annually, GETBOOK and BOOK) . 

The first and the third of these have been described in 
detail already, but nothing has been said about the second. This 
section will deal exclusively with file management and will pro- 
vide a complete plan for the near term. The user should attempt 
to familiarize himself with the problems involved and not merely 
follow thse suggestions blindly. 

Several general issues will be addressed before a detaile 
discussion of "how to do it" is undertaken in Section D. These 
issues are 

i) record keeping (knowing what files are available and 
where they are) 

ii) file protection (against loss) 

iii) updating and correction of files 

iv) recommended file storage. 
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i) Record Keeping 



Anyone experienced with computer use is aware of the 
difficulty of keeping track of exactly what files he has and what 
is in them, particularly if they are not used frequently. 

In the FACPUB system the permanent records are stored on 
tape and often the user will find himself with several similar 
versions of a file. For example one may be sorted one way, 
another sorted another way. It is imperative that accurate and 
up-to-date records be kept regarding the file contents and loca- 
tion. Each tape used in the FACPUB system should be catalogued 
and its "index" (a written record) updated everytime it is used. 



ii) File Protection 

Considerable effort is involved in constructing and 
correcting a large file and care must be taken to be sure that 
no files are lost. 

Files on the disk are subject to loss in the event of 
disk failure or inadvertent erasure. It is wise to provide back- 
up protection against loss by occasionally writing new files on- 
to tape. This can easily be overdone, but perhaps each time 
one hundred records are entered they should be backed up with 
a tape copy. A single scratch tape can be used for this purpose 
and overwritten with a new copy of the files each time it is 
used. 

Files which have been corrected and stored on tape for 
permanent retention should also be duplicated to prevent loss. 
This duplication must be done carefully to prevent losing the 
master copy in the process. The user should always be in a 
position where his files can be recovered if he loses all copies 
currently in use. That is, during a session at the terminal 
the user may have a tape mounted which contains valuable files 
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from which he intends to make a copy. He may also have these 
files on the disk, but he should be aware of the possibility 
of losing both copies because of equipment failure or user error. 

Another caution which deserves emphasis in the FACPUB 
system is the distinction between the master copies of the 
files and the LIBTAPE copies. The master copy is the one con- 
structed by INPUT and CORRECT but is not the one used to print 
output. The LIBTAPE version is used for that purpose. The 
LIBTAPE version can always be reconstructed from the master but 
not vice versa 



iii) Updating and Correction 

In the FACPUB system the decision has been made to 
store records in files according to the year of publication. 

(See the contents of tape LIB202 for example in Section IVB.) 

It also seems convenient to have these records sorted in some 
order and they are arranged by Department Code and then 
alphabetically by first author. These are viewed as the master 
files and a print-out of the LIBTAPE version should always be 
available in the library. As errors are discovered in these 
files they should be noted on the master copy. They can all be 
corrected in a single session when the decision is made to do 
so. The sequence number in the master copy corresponds to the 
number in the file so that the CORRECT program can access the 
proper records. When the user plans to correct all errors, 
say in the file SDAALL77, he can load the master copy from 
the tape back to the disk and correct as usual. The difficulty 
comes in rewriting the master copy back to tape. It is not 
safe to rewrite the file back on the same tape in the same file 
simply because the tape may not be positioned precisely and 
the following files might be destroyed. This can be overcome 
if the following files are also loaded on the disk and rewritten 
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on the tape following the one corrected. The difficulty is 
that the disk may not be large enough to hold all the required 
files. If not, temporary disk space can be used unless it too 
is inadequate. 

The procedure for adding records to an existing file 
on the tape can be handled as just described. The addition 
would be available on the disk (filed by year) and would be 
merged (using the C0I4BINE command) with the file loaded from 
the tape. Then the merged file would be sorted and replaced 
onto the tape, again remembering that this will potentially 
destroy the following files. Another caution is that when 
the merged file is sorted a new file, which also occupies disk 
space, is created. Before sorting and after assuring that the 
COMBINE command was executed properly, the user might want to 
erase the two files previously combined into the merged file. 



iv) Recommended File Storage 

As mentioned in the previous section the decision has 
been made to store the files by year (see Section IIIB for the 
contents of tape LIB202) . 

It is recommended that the same system be continued, 
but it is also suggested that the num±)er of master files on a 
single tape not exceed 3. The reason for this comes from the 
difficulty in manipulating too many records even with temporary 
disk space. Currently the tape LIB202 holds five master files 
including SDAPRE76 and SDAALL79. This is manageable for now 
because the pre76 file is relatively small (because it is in- 
complete) and the 79 file has only three records. As the 
pre76 file grows, it is recommended that the structure be 
changed to that shown below in Figure IV. 2. Notice that each 
tape in this recommendation includes all programs, a set of 
master files, and the corresponding LIBTAPE versions. 
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Master Version 



TAPE 1 ALL PROGRAMS 

S DAP RE 7 6 

SDAPRE76 LIBTAPE Version 



TAPE 2 ALL PROGRAMS 

SDAALL76 
- SDAALL77 
SDAALL78 



Master Version 
Master Version 
Master Version 



SDAALL76 
^ SDAALL77 
SDAALL78 



LIBTAPE Version 
LIBTAPE Version 
LIBTAPE Version 



TAPE 3 ALL PROGRAMS 

SDAALL79 
< SDAALL 80 
SDAALL 81 



Master Version 
Master Version 
Master Version 



SDAALL 79 
. SDAALL 80 
SDAALL 81 



LIBTAPE Version 
LIBTAPE Version 
LIBTAPE Version 



TAPE 4 AS ABOVE 



Figure IV. 2. Recommended Tape Storage Structure fo 
FACPUB System. 
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The exact contents of each tape should follow the 
example of tape LIB202 which includes EOF (end of file) marks 
between each file. This is repeated in Figure IV. 3. 



LIBTAPE 
EOF 
TT 
EOF 
I CHAR 
EOF 
IPACK 
EOF 



YEARl 

EOF 

YEAR2 

EOF 

YEARS 

EOF 



YEARl 

EOF 

YEAR2 

EOF 

YEARS 

EOF 



PROGRAMS 



Master Versions 



LIBTAPE Versions 



Figure IV. 3. Recommended Format of Master Tapes 
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The reason for including the programs on each tape is 
that if the tape contents is loaded into temporary disk space, 
all the programs are readily available for use. 

The reason for including the LIBTAPE version is simply 
that it should be stored somewhere and it can easily be printed 
to determine the exact contents of the master file. 

If the structure recommended above is used, the process 
of correcting and updating files will be eased because it should 
always be possible to accommodate all data from any tape in 
the 20 cylinders of temporary disk space available. 

LIST can be used to print the contents of any LIBTAPE 
file. The programs GETSORT and GETBOOK may sometimes have to 
use JCL referring to two different tapes, but the description 
and use of those programs is unchanged. The JCL must be changed 
slightly when the input comes from more than one tape. Suppose 
that GETSORT required the use of two tapes, say LIB202 and 
LIB203. Suppose that we want files 11 and 12 from LIB202 
and file 5 from LIB203. In this case the JCL (see Listing of 
GETSORT) would be changed as follows: 

LABEL= (12,NL, ,IN) , VOL=SER=LIB20 2 
would replace 

LABEL= (12,NL, ,IN) ,VOL= ( ,RETAIN,SER=LIB202) 

and 

LABEL=(5,NL, ,IN) ,VOL=( , RETAIN , SER=LIB20 3) 
would replace 

LABEL= (13,NL, ,IN) , VOL= ( » RETAIN,SER=LIB20 2) . 



50 



D. File Management Examples 

The following topics are covered in this section: 

1. How to transfer a file from disk to tape so that a copy- 
can be obtained for proofreading. 

2. How to make corrections to a file not currently on the 
disk when the 10 cylinders normally available are adequate. 

3. How to make corrections to a file not currently on the 
disk when temporary space is needed. 

4. How to construct a master tape as described in Section C. 

5. How to add records to an existing file on tape. 
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1 . Transferring a file to tape 

Assume the file called ALL99 is on the disk and a 
printout is required. 

a. Select a scratch tape and make it available to the computer 
center. This example assumes LIB999 is the tape. 

b. Sign on to CMS. 

c . Type 

cp msg cp please attach tape LIB999 with ring as 181 

Wait until the message returns that device 181 has been 
attached. This may take several minutes if the computer 
center is busy. 

d. Type 

tape rewind 

e) Type 

tape dump all99 memo pi 

This will dximp the master file onto the tape. It is prob- 
ably a good idea to do so. It will serve as backup for 
the disk file and will correspond exactly to the LIBTAPE 
version you will be reading. 

Type 

tape writeof 

This will write an EOF mark on the tape. 
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f ) Type 



filedef 01 dsk all99 memo 
(wait for response, a second or two) 

Type 

$ libtape 

The LIBTAPE program will execute. The number of records 
processed will be printed at the terminal. Wait until 
execution ends before touching the keyboard. This may take 
several minutes for a large file. Normally it will take a 
few seconds, maybe a minute for 50 records. The LIBTAPE 
program automatically writes EOF. 

g) Type 

tape rewind 
Type 

cp detach 181 
Type 

cp msg cp done with tape LIB999 

h) Type 

cp log (if you want to sign off) 

The desired file is now file 2 on tape LI3999. It can 
be printed using LIST with the appropriate JCL. 
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2. Correcting a file not currently on disk 



Assiome we want to correct records in the files currently 
on tape LIB202 (see Section IVB for contents of this tape) . 

We will assiome here that the normal space assigned for 
the FACPUB system is adequate to hold the necessary file. 

a) Sign on to CMS 

b) Type 

cp msg cp please attach tape LIB202 with ring as 181 

Wait until the tape is available. Availability can be 
confirmed by typing the next command. 

c) Type 

tape rewind 

d) Type 

tape skip 4 

This will skip the first 4 files on the tape. 

e) Type 

tape load 5 

This will load the next 5 files onto the disk. (Actually 
the 10 cylinders available are not sufficient to hold all 
this.) The tape can be rewound and detached and the operator 
notified. This would be the procedure if the corrections 
are lengthy. Alternatively, the corrections can be made 
immediately and the corrected version put back on the tape 
In either case we will assume that the files are now 
corrected and properly sorted. 
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f) Type 

tape rewind 
tape skip 4 

g) tape dvunp SDAPRE76 memo 
tape writeof 

tape dump SDAALL76 memo 
tape writeof 



At this point the corrected master files are rewritten 
on the tape . 

h) Type 

filedef 01 dsk SDAPRE76 memo 
$ libtape 

(wait until execution ends) 
filedef 01 dsk SDAALL76 memo 
$ libtape 

(wait for completion) 



Repeat these steps for each file. At that point the 
LIBTAPE versions are also on the tape. 

i) Type 

tape rewind 
cp detach 181 

cp msg cp done with tape LIB999. 

j ) Type 

cp log 
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since the 10 cylinders assigned to the FACPUB 
system are not sufficient to hold all of the LIB202, 
the above procedure will fail. However the process of 
loading selected files onto the disk is still the same. 
The files can then be corrected whenever time permits 
and they can later be rewritten onto the tape using 
temporary disk space {see Example 3 which follows) . 
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3 . Correcting a file on tape using temporary disk space 

We will now address the case in which the 10 cylinders 
available for the FACPUB system are inadequate to hold the 
file currently on tape . 

a) Sign on to CMS 

b) Type 

cp def t2314 192 20 
format t all 
release 191 p 
release 192 t 
login 192 p 
login 192 b 

At this point 20 cylinders of temporary space are 
available and they have been redesignated as the o disk. 

Be careful when typing the above commands that you do not 
type "format p all" as this will erase the p disk if you 
elect to continue. At that point in the sequence of commands 
the p disk is the 10 cylinders normally available. 

After these commands are complete, the user might wish 
to type s (status) and later 1 (list) to confirm his position. 

c) Get tape LIB202 attached and rewound as in previous examples 

d) Type 

tape load 9 



This will load all programs and master files from the 
tape onto the newly available 20 cylinders. Corrections 
must be made and the corrections rewritten on tape before 
signing off since the 20 cylinders will be lost when the 
user signs off. The 10 cylinders (currently designated 
as the b disk will then revert to the p disk) . 
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Assuming all corrections are completed, 



e) 



Type 

t rewind 
t skip 4 

t dump SDAPRE76 memo 
t writeof 

t dump SDAALL76 memo 
t writeof 



f) Continue as in Step g, example 2. 
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4 . 



Constructing a. inastsr taps as described in Se ction C. 

Assume all the programs and the relevant files are on 
the p disk. 

a) Sign on to CMS, get the desired tape attached and rewound 
(see Examples 1 and 2) . 

b) Type 

tape dump libtape text pi 
tape writeof 
tape dump tt aplws pi 
tape writeof 

repeat for ICHAR, IPACK) 

c) Continue as in Step g, Example 2. 
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5 . Adding records to an existing master file 

Assume temporary disk space is required as in Example 2 , 
and assume that a new file called ADD78 is on the p-disk and must 
be added to the current file SDAALL78 or LIB202. 

a) Sign on CMS with temporary space as in Example 3. 

Get the tape loaded and rewound. 

b ) Type 

tape load 9 

This will load the programs and the files SDAPRE76, SDAALL76, 
SDAALL77, SDAALL78, and SDAALL79 . 

c ) Type 

t rewind 

The file ADD78 originally on the p-disk is on the disk 
now designated as b . To get a copy onto the p-disk the COMBINE 
command can be used. In this exam.ple the file will be combined 
in one step with SDAALL78. 

d) Type 

combine TOTAL 7 8 memo pi SDAALL78 memo pi ADD 7 8 memo bl 

The file TOTAL78 should include both SDAALL78 and 
the ADD78 files. Confirm that it is the correct size by listing 
the files (1 for list) . 

e) Type 

erase SDAALL78 memo 

f) Type 

sort TOTAL 7 8 memo SDAALL78 memo 
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The terminal will request that sort field definition be 
entered. Assume we want to sort by department and alphabetically 
by first author. 

g) Type 

1 3 737 800 

Now the file SDAALL78 memo should contain the ADD78 file 
sorted as described. 

All that remains is to rewrite it on tape. 



h) Type 

tape skip 7 

tape dump SDAALL78 memo 
tape writeof 
tape dump SDAALL78 memo 
tape writeof 

Continue as in Step h. Example 2. 
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E. Miscellaneous Commands 



The instructions discussed in this section are not 
intended as a tutorial. They are recorded here for completeness 
and should not be attempted by the user without knowledge of 
the CMS system or without reference to the CMS user’s guide. 

1 . To attach a tape (with ring) 

cp msg cp please attach tape 

with ring as 181 

2 . To detach a tape 

t rewind 
cp detach 181 

cp msg cp done with tape 

3. To position or scan the tape 

t rewind 

t skip n (if desired) 
t scan n (if desired) 
t rewind (if desired) 

4 . To dump a file onto tape 

t dump filename filetype 
t writeof (if desired) 
t rewind (if desired) 

5 . To load the contents of a tape onto the P disk 

( position the tape) 
t load n 

t rewind (if desired) 
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6 . 



To write a file onto tape using LIBTAPE (this is in 
preparation for printing) 

(position the tape) 

filedef 01 dsk filename filetype 

$ libtape 

The filedef and libtape commands can be repeated for 
other files. Do not write an end of file since the libtape 
program already does this. 

7 . To sign on with temporary disk space 

cp def t2314 192 20 

format t all 
release 191 p 
release 192 t 
login 192 p 
login 191 b 

8. To delete records from a file (this will change the 
sequence momber of all following records) 

The following exam.ple will erase record number 52 
out of the file called ALL79. It assumes there are 53 
or more records in the file. 



split 


all79 


memo 


XXX 


memo 


1 51 


split 


all79 


memo 


XXX 


memo 


53 


erase 


all79 


memo 








alter 


XXX 


memo 


pi 


all79 


memo pi 
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9. To transfer files to the spooled reader (or to another 
user number) 

cp xfer d to nnnnp (nnnn = user number) 

disk d\imp filename filetype filemode 
cp xfer d off 

User number nnnn can load the file by issuing the 
disk load command. 

10 . To combine or copy files 

combine newfn newft newfm oldfn oldft oldfm ... 

1 1 . To sort files under CMS 

sort oldfn oldft newfn newft 



12 . To change a filename 

alter oldfn oldft oldfm newfn newft newfm 
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V. PROGRAM LISTINGS 



V I{iPUT\V -,DC\APL^\S \X \J\AV\IP/ A \TV -,WF 

[1] K-^4p» » 

[2] 'WHAT FILS' 

[3] VF^lD 

[4] LRET:'-'0 SHD, PUT lEPT nODE Z ' 

[5] 'lEPT nODS' 

[6] ->( ’Z » =lt.X^a)pO 

[7] i 3]*^4»3 

[ 8 ] S^FILESIZE APLU^APLNAIE WF,' MEMO' 

[9] 'THIS ENTRY WILL BE ASSIGNED SEQUENCE NUMBER ’ ;S+ 

[10] £1: '*UB nODE' 

Cll] -»-(0*X^( 3t.V^a) RINDEX EC'd)oL2 

[12] '\NCORRSCT INPUT CHECK CODE' 

[13] -*-£1 

[14] £2 :/[4]-P(2Z[A’] 

[15] F-12+7 

[ 16] £3 : ’T£> aUTHS ' 

[17] -^(0=M)p0 

[18] K-^K,£ir NA^aiX 

[19] J*1 

[20] NV^AV^Oq' ' 

[21] £4 : 'aUTH + ' \J 

[22] AV^AV ,X*-aQ^^ 

[23] NV^NV .NAMECHG X 

[24] -►(,V/^>J^t7 + l)p£4 

[25] V^V,2i^Q^AV 

[26] ’-££' 

[27] TV^^ 

[28] 2 40 tT7, a 

[29] ’nlT' 

[30] TV^£ 

[31] 7^7 , 243t7’7,a 

[ 3? ] * ACUL'^Y ID ’ 

[33] 7[5 + ;3]^'^>3t->a 

[34] 'L^TS' 

[35] 7[9 + i3]-M2t4>a), ' ’ 

[ 36] £5 : EC nODE' 

[37] -*■( (.I^lt,a)€S£C7)p£5 

[38] 'incorrect r\ODE, oSENTER' 

[39] ->£5 

[40] £5:7C9]-I 

[41] 7^7.6utV7 

[42] PRNTCODE 

[43] {R^V) WRITE 4P£mV,S-S + 1 
[ii4] CMS 'FINIS * *' 

[45] -^LRET 
? 
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V CORRECT \ X -,v -,Y \IV -,M -,AV -,Z xAPuN \ V 1-,FN \XX -,D \ WF 
Cl] 'WHAT FILE' 

[2] N^FILESIZE APLN-APLN AMEQ. ' MEMO' 

[3] ul:'u)HAT [ EQUEHCE JUMPER' 

[u] ->•( 0 =r-^D) pzi7 

L5] ^{H^Y)qL2 

[6] ' INCORRECT [EQUENCE JUMPER' 

[7] ^L1 

C8] L2'. AV^~SL^V^^QQ^R^READ APLN ,Y 

[9] AV^AV,26p' ' 

CIO] LS : ' _!ELD T(?s+’ 

Cll] -►( 0=;f-^a) pL4 
Cl2] 'CURRENT' 

Cl3] FCll^^,fIi[Cl;;f] + i,FId/C2;J]] 

C14] ^{Xc 16 17)pL20 

C15] L<^:'jEW + IF CURRENT OK^ JUST RETURN' 

C16] -►( • ' =ltZ^iii)pL5 

Cl7] ^(~l€ 16 17)pL8 

Cl8] L20: ' RETURN TO KEEP, OR TYPE 3 CHARACTERS WHERE ERROR PEGINS, 1 
TO ERASE' 

C19] ->( ' *=lfZ^iJ)pL5 

C20] 3* + /( ’IX;r = 3fZ) )piS37 

C21] 'FORMER CONTENTS OF FIELD ERASED, TYPE NEW CONTENTS' 

C22] Z^iZI 
C23] -»-Z8 

C24] Z37:Z?^"1 
C25] L23:D^D+1 

C26] ->-(3= + /(3 + Z) = (3+Ci + 7Cll^]))pZ21 

C27] ^(Ci<FIi(C 2 ;AT] -3) pL2 3 

C28] 'CANT FIND THESE CHARACTERS' 

C29] -►i:20 

C30] L21:Z^D^ViIV] 

C31] 'CURRENT., CONTINUE FROM HERE' 

C32] Z 

C33] Z22:Z*^Z,iZl 
C34] ^8 :->-{X^2)qL11 

C35] ■*{Q*XX^{3fZ) RINDEX ££«)pZ10 

C36] ’ INCORRECT \NPUT , nHECK nODE' 

C37] ^LS 

C38] L10:7CII']^£££CZI] 

C39] -►LS 

C4Q] Zll:-»(~A:e 1 4)pZ12 
C41] 7Cl7]^4>,FI]iC2;;ir]t4),Z 

C 4 2 ] ^LS 

C43] i312 :->-U^6 )pL3 
C4U] 7CI7]-^’ *,"2fZ 

C45] 

C46] Z3 :7CI7]^FI^C2; J]+Z 

C47] -►(-^e 8 9 10)pZ6 

C48] ^7C ( 30xI-8) + i 30]^.V.4<VFCFG 7CI7] 

C49] L6:^L^ 

C50] Z4 : (F>^800+ ( ~64+7 ) ,/!7) WRITE APLN ,Y 
C 5 1 ] CMS ' FINIS * * ' 

C52] -»-il 

C53] L'^ '.CMS 'FINIS * *’ 

V 
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V DISPLA'f \V \A\N \I \X\K\T 
Cl] 'yUAT FILE' 

[ 2 ] 

[3] 'WHAT SEQUENCE NUMBERS' 

l4] 

[5] A^AFLNAME FN,' MEMO' 

[6] N*-pV^,V 

C7] 1^1 

[8] Ll'.X^READ A,ViIl 

C9] X^736fX 

ClO] H^X 

Cll] 13t.V 

C12] Z^13 + .Y 

Cl3] K*-0 

[14] L2:K^K+1 

CIS] ->( 30=+/( 30p ' ' =2’^30 + I) )pL3 

C16] X^30 + .Y 

C 17] T 

CIS] L3 :-^(.Y = 8) OL4 
Cl9] ^L2 

C2C] L4: 6 uo p240+J^2534F 
C21] Y-^2 4 0 + ,Y 

[22] 3 60 o243 + ;ir 

[23] 63fiaO+X 

[24] ^{N>I^I*1)qL1 

V 
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7 


ADDFAC ;R ;IN i-J 




[1] 


'TYPE NEW ENTRY AS FOLLOWS 


J 


[2] 


'ID SPACE SPACE NAME SPACE 


SPACE DEPT' 


[3] 


IN^m 




[4] 


R^BLANK2 IN 




[5] 






[6] 


iyl :-»■( 3 = + /( {<t)3+4>i?) =3 + /5 ^[(J-x20) + i 3]) )pi33 


[7] 


J^J*1 




[8] 


■^U = NFAC)pL2 




[9] 


-*-Ll 




[10] 


L3:'ID NUMBER ALREADY USED, 


BUT OK' 


[11] 


20^U^2Q)^ AA 




[12] 


L2 




[ 13] 


IN^{ {pR)*2)^IN 




[14] 


AA^AA,l'iriR^BLANK2 IN 




[15] 


IN^{ ipR) *2)^IN 




[16] 


AA-^AA,<p3^i>3LANK2 IN 




1 — \ 
1 t 


NFAC^NFAC*! 





[18] 'YOUR ENTRY IS BELOW' 

[19] 20^{2Q>‘-NFAC-1)\ AA 

[20] 'ISSUE SAVE COMMAND IF OK, LOAD TT COMMAND IF NOT' 

[21] pO 
1 
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V FIXFAC -,x iJ -,z -,IN 

Cl] 'FILTER ID NU'^BSR FOR ENTRY YOU WANT TO CORRECT' 

C2] Z^4)3t4)l]! 

C 3 ] J*-Q 

[4] iil:^(3 = + /(3t,Y=3 + /1/lC(J’x20) + i3]))oL3 

C5] Dl'.JW*! 

[6] -*{J = NFAC) qL2 

C 7 ] •*’L1 

[8] z:3 : 'ENTRY IS' 

[9] 20t/l/l[(/x20) + i20] 

CIO] 'IS THIS THE ENTRY YOU WANT TO FIX, YES OR NO' 

Cll] ^( ! = + /( '7' =lf[Il) )oL6 
Cl2] 

C13] L5:'TYPE CORRECT ENTRY AS FOLLOWS, X TO DELETE, BLANK TO KS 
Cl4] 'ID SPACE SPACE NAME SPACE SPACE DEPT' 

Cl5] ^( ' ' =ltZ^L3)pO 

Cl6] -»■( '7' =ltZ)pL4 
Cl7] AAlU^lO) *\2l^‘^2i>pR^BLANK2 Z 
Cl8] Z^( (p/?) + 2)4Z 

Cl9] AAl{iJ^20) + 3) + il'i^^l^fR->-BLANK2 Z 
C20] Z^( ( p/?) +2 )4Z 

C21] /1/lC ( («Tx 20) +17) + 3]-<^3tc})Si./1^/.'(2 Z 

C22] 'ENTRY NOW IS' 

C23] /5/lC ( Jx20) +x 20] 

C24] 'ISSUE SAVE COMMAND IF OK, LOAD TT COMMAND IF NOT' 

C25] 

C25] L2\'CANT FIND THE ENTRY YOU WANT, CHECK DIRECTORY' 

C27] ^..5 

C28] i.4:>)/!^(Jx20)t/l/),((«; + l)x20)+/l/! 

C29] NFAC^NFAC-1 

C30] 'ENTRY DELETED, ISSUE SAVE COMMAND IF OK' 

C31] ^5:^p0 

V 



7 SEEFAC;X 
Cl] X-^ioAA)i20 

C2] 'THE NUMBER OF ENTRIES IS ' 
C3] 7 

C4] (X,20)pAA 

C 5 ] +-p 0 

V 



69 



file: LinTAPE 



P5 



INTtGEF.=^? 1K( B)0 ) /■! OG ^ Z40't 0 / 

liMTFGfc.^<'2 .'.LTH(6) //. F JhO ,Zf 2A0, 2F 340, ZF''*4C, ZF *54 0 , ZF64Q / 
INTtGE-^^^ ZrVZF04)/ 

M=aoc 

CALL DSOSET( 01,“' , I,') ) 

CALL TiPSHT (^,12 ,oJ0 ,17, I, aOO ) 

C CALL DSJ SE T(02,N ,1 ,M ) 

KO'JMT 1 = 0 
KC LMC = 0 

98 RCAO( 1, 1CC,END=9S) IN 
100 FOFf^ (4 (200 M ) ) 

KOLNTI = KCLi\TH-l 
CALL r3-lV7T(IN) 

C HC'^ ''A NY A'JThCRC? 

DO- 1 K=1 ,t 

IF ( iri( 13 ) .NE. AOfIKK ) ) GO TO 1 

KK=K 

GO TH 2 

1 CON'TJ'mje 

FRI 7E (6 ,200) KK,kC'JN'I 

200 FORM AY (• RAD AUTHOR COUNT: ',12,' SKIPPING RECORD: »,15) 

GO TC 93 

C 

C WRITE OUT ORIGINAL Cl TAT TOM 

C 

2 WR ITF( 12, ICO ) IN 

KOLNTC = KC‘JNT C + 1 
GO TO 98 

C 

99 WRITE(6,20iJ KCU NT I , K CUNTO 

201 FORMATI ' END - RLC )R'JS IN: ' ,110,' RECORDS OUT: ',I10J 

ST CP 

ENC 

SUBROUTINE COMVRT (IN) 

IN''’EGER-2 Z (64 ) , X(o4 ), IM( 300 ) , BLANK /Z4OA0/ 

lN7EGER=i'4 CHAR 
C 

DATA If 15 A<+0 , Z7F40 .Z53 40, Z5040, Z4D40, Z 5 D 40 , Z 40 40 , Z 5F 4 C , 

*2 4040,2-^0^,0, Z4640 ,2 7640 ,ZVE40 ,Z60,D , ZD4 40 , Z4 04 J, 

*2cf)40, ZC54 u,ZD9 4u,/. E i4C,ZE £4 0, ZE440, ZC9 40,ZD 64C, 

*Z4C4 C ,Z4C4 0 ,Z404 0 ,ZD740 ,ZS C4 0 , Z4C4 0 , Z4J4 0 , Z7 E40 , 

*Z6 140, Z 79^U,ZC iHO ,ZE 240, ZC 440, ZC 740, ZC. '340, ZD 140, 

*2U340, Z4040 , Z6 84U , <l40h0, ZC640, Z7040, ZD340,Z7A40, 

*7.E 94C ,Ze 7 hG ,ZC 340 ,ZE S40, ZC240 , 2D540 , 76F40, Z4040, 

*Z40 40, ZoE 40, Z 40 4o, ' 4 040, ZD 240, Z6C 4 0, Z4 0 4 0,24040/ 

C 

DATA X/2 3140, Z £240, Z 8340,2 3440 ,Z3'‘>40 ,Z^‘'640 ,2 3740,23840, 
*Z894C, 24(340, 740^0, Z. 04 0,7. 40 40, 2404 0,2 40 4 0,24040, 
*29140,29240 ,29340 ,29440,29340 , Z96 40 ,29740, Z9040, 

*2 9 94 0, 2 4C't 0,2 4 0*^ C , 2 4G 40 , 2 40 h C , 24 04 0 , 24 04 0 , 24 0^* 0 , 

*24 040 , 2A240 , 2Ao4 0, 2 A 440, 2 A 54 0, 2A64 0, If' 74 0, 2 A 3 40, 

*ZA 94 0 ,2 4040 ,2 4040 ,24040,24 C-,0 , 24 >4 0 , 24-14 0 , ZFO 4 0 , 

«ZF140, ZFZhO, 2 F34o, / F 44 0,7 F 540 ,2F 640, 2E 74C,2F 34 0 , 

* 2F94C , 2404 J , 2404 0 ,24 040 ,24 04.1 , 24040 , 240 40 , 24040/ 

C 

N=8G0 

DC I C L = 1 ,N 
CFAR= ICHAR( rj(L ) ) 

IF(CHAR.LE.o4) GC ^0 10 
IF(CHAR.GT.123) oC 7C 11 
LL = CH^ R-o4 
1 N ( L ) =L ( LU 
GO TO 10 

11 IF (CFAR .LE .192) GO T'T 10 

LL=CH AR-192 
IN ( L )= A ( LL ) 

10 C)NT1mje 

FE TLRN 
l:N 0 
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V FID^APLNAME A\K\REM 

[1] fl REMOVE EXTRA BLAUK5 

[ 2 ] + ^xa)/a-' ',a,' ' 

[3] fl FIRD ERD OF FILER AME 

[4] ' ' )-i 1 

[5] ft IF ORE WORD - SYRTAX ERROR 

[6] ^{K=oA) /ERl 

[7] A EXTRACT FILER AM E 

[8] FID*-Q\KiA 

[9] ft ARD REMAIRDER 

[10] REM^iK+l)iA 

[11] ft FIRD E^D OF FILETYPE 

[12] K^{REM\' *)-il 

[13] ft ADD FILETYPE TO FILE 

[14] FID-^FID, (Q^K^REM) 

[15] ft EXTRACT 2RD REMAIRDER 

[16] REM^iK*!) KREM 

[17] ft CHECK SPECIAL MODES 

[18] ->( ( A/ »S/ ' =2 + /?^'^f) v( A/ ' * '=2fREM))/Ll 

[19] ft MODELETTER='?' UR LESS OTHERWISE 

[20] FID^FID, ' ABCTP' [ ' ABCT' xl^REM] 

[21] ft MODERO=*l' UR LESS OTHERWISE 

[22] FID*-FID, '0234561 '['023456' 1 1 1 1+ /?£’/•/ ] 

[23] 2 

[24] Ll'.FID^FID ,2^REM 

[25] ft RECTYPS=* F' UR LESS V SPECIFIED 

[26] L2: FID-FID,' ' , ' F7 ' C ( ' 7 ' =~ 1 ) + 1 1 ] 

[27] ft CORVERT TO EBCDIC IRTEGER 

[28] FID-2 OF FID 

[29] ^0 

[30] ERl: ' FILETYPE MISSIRG' 

7 



¥ R-FILESIZE FID 
[1] R-lG2l'QSIZE FID' 
9 
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9 y WRITE FID 
Cl] IQll'QWRITE FID Y' 

[2] -►( 0 = 10410 ) /O 

[3] WRITEERROR 104l0 

C4] * 

9 



V WRITEERROR EC 

[1] R SELECT MESSAGE APPROPRIATE TO ERROR CODE 

C2] -^iEC^ 0 1 4 5712 14 1516) /.VO +0 1 2 26 3 3 54 

[3] R GIVE STANDARD MESSAGE FOR OBSCURE OR 'IMPOSSIBLE' MESSA( 

[4] ■*(EC€ 2 3 6 8 9 11 13 17 1 8 19 )/L1 

[5] INVALID ERROR CODE' 

[6] Lli'WRITE ERROR NO, ';EC\' - CONSULT MANUAL' 

C7] ^0 

[8] A/0:-»‘0,pO-^’V/?r7’^ OK' 

[9] -yQ INV ALID FILENAME' 

CIO] -^O^oU^'lNV ALID FILEMODE' 

Cll] -►O. IS READ-ONLY' 

[12] -►O.pD'^'f-I/ ERROR' 

Cl3] RECORD LENGTH ERROR' 

Cl4] ^0, pQ^'frLfi’ INDEX ERROR' 

V 



9 A^EEAD FID 

[1] A^102l'QREAD FID' 

[2] -►( 0 = 10410) /O 

[3] READERROR 104l0 

[4] * 

9 



7 READERROR EC 

Cl] R SELECT MESSAGE APPROPRIATE TO ERROR CODE 
[2] -^{EC= 0 1 12)/V0+ 0 12 

l 3] fl GIVE STANDARD MESSAGE FOR OBSCURE OR 'IMPOSSIBLE' MESSAG 

[4] -*{ECe: 23456739 11 13)/L1 

[5] -*-0 I NV ALID ERROR CODE' 

[6] Lh'READ ERROR NO. ';EC;' - CONSULT MANUAL' 

C7] ^0 

[8] MQ:-*0,oU*-'READ OK' 

[9] -*0 FILE NOT FOUND' 

CIO] -^'O.pQ^'frLfi’ INDEX ERROR' 

7 
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A,M HUM OR LITt 



7 R-A RISDEX M\I \J 

[1] /?-^( (x/o=j),^'^A/,‘^[;x,;] = (r,,/-.-p,/i)p/i)/o,ir-^ito/’'f 

[2] n FIHDS ISDEX OF ALL ROWS OF M STARTING WITH A, 
, GIVES Q IF A NOT IN M 

7 



7 R*-LIT A 

Cl] i?*^,’0123456789'Cl + ( (1 + L 10®/1 ) p 1 0 ) T/1 ] 

7 



7 NV^NUM V 

Cl] iVK^lOi (' 0123456739 ’ xl' ) -1 
7 



7 R^NAMSCHG V \TV \T 

Cl] TV<rV 

C2] TVi{V eUCV) / \qV\^LCV[.{ {1*qUCV)*T) /T^UCV \V\ 
C3] R^TV 
7 



7 L^BLANK2 X',A\K\LOOP 
Cl] LOOP^Q 
C2] K^fiX 
C3] L-ltAT 

C4] £1 :-*■( 2 = + / ( ' ' =A->-2fX->-l^X) )o0 

C5] LOOP^LOOP+1 
C 6 ] L-*-L ,1^-4 

C7] --{LOOP = K-1)qO 

C 8 ] -^Ll 

9 

9 



7 /?^3’/?/i;/54 1>5,7 ViX;Y;Al;A2 

Cl] /11 -*-’-^a)xj:v^->[]’ <<>>-(;;> 

C2] A2^’ s<-;C]>: 

C 3] R^V 

C4] i^’C-^■/lp,^']■^/^2CUf'^2l*y)/7■^-/^lly] 

7 



7 R-TRANSAyui V ;X;Y ;A1;A2 

Cl] 41-^’xr]"“<<>>-v-f-*-();:' 

C2j A2*- ' <i()3l. x>vA : > T X > ■ 

C 3 ] 

C4] .?U'/xp.'/]-42C(;ir^i9^7) /y-/5ii7] 



7 
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V PRNTCODEilD AUT uV ;PC ;M \ ^ R ;DC i FIRST ; FOUND iNA; AUTH ; J 
Cl] FIRST*-0 

[2] FOUNDED 

[3] NA-^NUM If 12+/ 

[4] IZ?-^3t5+/ 

[5] /li/T'^lU+lS + Z 

[6] /5C^3 + / 

[7] 7i?^2 + 10 + y 

[8] -»■( (/Vi/A/ y/?) <76) pL4 

[9] /V-t-0 
CIO] L3 :,V-«-/V + l 

Cll] ^(3 = + /(IZ?=3f(20x,V-l)+;5yO)pZ,2 
Cl2] ■^{N<NFAC)QL^ 

C13] -^{F0UND = l)pL9 
C14] PC^O 

Cl5] 'IZ? NBR NOT IN DIRECTORY, PRINT CODE 0 ASSIGNED* 

C16] 

C 17] 3s + //?C = 3f( 17 + 2Qx,V-l) + /?^)pL10 

C 18] ->( 14 = + /(/5i/2’ = /3i/7//^l‘i+( 3+2 0x,V-l) + y^/!) )pZ.4 

C19] J^Q 

C20] + 1 

C21] ->(J = A/.4 + l)pi;i2 

C22] . ->( 14 = + /(/li/2’/y=l4+( 13 + 30x(J-l) )+/) )pL 13 
C23] -^-Lll 

C24] L12'.* faculty with THIS ID IS NOT ONE OF THE AUTHORS ENTERED* 
C25] PC^O 

C26] 'PRINT CODE 0 ASSIGNED* 

C27] ^L9 

C28] 

C29] b6;/V-A/+l 

C30] -►( 14=+/(y^i/'r=lu+( 3+2 0x,'^-l) + ^4) )pZ,5 

C31] ^{M<NFAC)pLS 
C32] ^(,FIRST~l)oL9 
C33] PC^4 

C3U] 'FIRST AUTHOR NOT IN DIRECTORY. PRINT CODE 4 ASSIGNED* 

C35] -*L8 

C36] L10:^(N-NFAC)oL9 
C37] FOUND^l- 
C38] -^L3 

C39] LS :* DIRECTORY SHOWS THIS AUTHOR NOT IN DEPT ENTERED* 

C“0] 'PRINT CODE 5 ASSIGNED* 

C41] PC^S 
C42] :>i,8 

C43] L^'.PC^l 
C44] -yL8 
C45] L5:FIRST^1 

Cue] -^( 3 = + /( 3 + ( 17 + 20x,V-l ) + .4/0 =PC) PL7 
C47] PC^2 
CU8] -*-L8 
C49] L7:PC*-3 
C50] ^L6 

C51] u8 iPC^li l^LIT lO+PC 
C52] /C5]^PC 

V 
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ooonooooooonooooooooooooo 



// EXEC FnR‘^r.LG,PEGI0N.GD=180K 
//FCRT.SYSIN 00 * 

LIST 

THIS IS the «AS!C PPINTIMG pPOGRA" FOR tm3 =aCpJB 

IT OPERATES on FILES WHICH HAVE REE^J C O'; S T R' if, ' ED 'JSI';G ~HE A^L co-jrsAv: 
input AMO CORRECT AMO HAVE TH£^4 6EEM TRArJSLATEO US’MG thE PROncA./ ’.IRTAF 

THE PROGRAM POQVIDES A SEQUENTIAL LISTING 0= ’’HE FILE COMT = NTS 
A SEQUENCE NU*^PER IS ALSO PRINTED 

SETUP. .. . 

JGB CARO, DECK, END 
JCL 

3 CAROS showing A UNP 3 BK- 

CATA CARO SHOWING N!J‘-ie£F OF FILES, 15 
DATA CARO SHOWING NUMBER IN EACH FILE, ALL 15 
GRANGE CARD 

WITH A VERY MINOR CHANGE THIS PROGRAM CAN «£ US=0 tq 
SKIP TO A NEW PAGE EACH T ! '1 E A NEW AU7H-'5 IS = 'ICOU'!''‘E= rO 
THIS IS explained on CO*^NEMT CARDS IN "HE LI ST TIG 3EL'"'W 
00 NOT DC this unless THE INPUT TAPE IS SO? "ED 3Y AU"HOP 10 
CB YOU WILL GET A NEW PAGE WHEN YOU DCNT WANT ]T 



C 



c 

c 

c 

c 



dimension ALPHA(2,22) 

DIMENSION ALPKo) 
dimension NTF(20I 

INTEGER * 2 !ALP2(30,8), IALP3I2A0J, IALPA(2H3» 

integer * 2 IPLI60) 

INTEGER 2 IBLK /* '/, I SCO /';•/, ISTAR /'*•■/, INQA /'IN’/ 

INTEGER * 2 IWCA 
CATA BLK/'. •/ 

AUTH=5LK 
LMX = 60 



LAU = 30 
LMT = 56 
LTI = 2A0 
LMS = 53 
LSO = 243 
lAL = 22 
LICR = 15 
LIME = 75 
LMAX = 75 
REA0<5,11 ALPHA 
I format ( 1 0( IX, Al, 3X, A3)) 

IC = 0 
lA = 7 

READ! 5,3) NOF 
NFC =99999 
NPF = 1 

IF (NOF .LT. 1) GO TO 10 
REA0(5,3) (NIFd), 1 = 1, NOF) 

3 FORMAT! lol 5) 

NFC = NIFd) + 1 
10 CONTINUE 

RFAO( 8, 4 , £N0=80) ALPl, NA, I ALP2 , lALP’, ULP^ 

4 FORMAT { A3, A1,A1, A3,A1,A3, II, 240A1. 240A I . 243Ad 

IC = IC 1 

IF dC .LT. NFC) GO TO 5 
NPP = npE + I 

IF (NPR .GT. NCF ) GO TO 80 
NFC = NI F ( NPF ) I 
1C = 1 

5 CONTUJUE 

TO GFT A N'-W PAGF FOR EACH NEW AUTHOR 1‘ISERT CARD B^LOW 

DC this Of!LY I*^ THE INPUT !S SORTED BY 

THERE IS ONI’ CTMEP CARO "HAT MUST BE IN'^ERTED 



1F( AUTH. NE .AL P l( 4 ) )G0 TO 70 
)F ((LINEfLICR) .GT. LMAX) GO TO 70 
2 CONTINUE 
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DO 8 I = ItlAL 

IF (ALPK2) .NE. ALPHA(l,I)) GO TO 8 
ALPK2) = Al.PHA(2,n 
GO TO 9 

8 CONTINUE 

9 CONTINUE 
WPITE(6t 11 ) 

LINE = LINE + 2 

11 FORMAT!//) 

WRITE(6,12) ICf ALPI 

12 FCRMATdXt I4t 4X, A3 , IX , A3 , IX , A1 , IX, A3 ,1 X , Al » IX , A3 /) 

LIME = LINE + 2 

IBL = 1 
LC = 1 

DO 30 I = 1,NA 

IF (IBL .LT. 1) GO TO 16 

DO 15 IB = LC,LMX 

15 IPLdB) = IBLK 
IBL = 0 

16 CONTINUE 

DO 20 II = 1,LAU 

IF (IALP2(II,I) .EO. IBLK .AND. I AL P2 ( I I + l , I ) .EO. IRLK) GO TO I 
GO TO 20 
18 CONTINUE 

IALP2( II tl ) = ISCO 

ICH =11+1 

LCT = LC + ICH - 1 

IF (LCT .GT. LMXJ GO TO 26 

GO TO 21 

20 CONTINUE 

21 II = 0 

DO 24 J = LCtLCT 
11=11+1 
IPL(J) = IALP2(II,I) 

24 CONTINUE 

LC = LCT + 1 
GO TO 30 
26 CONTINUE 

WRITE(6.27) IPL 
21 FORMAT! 15X, 6CA1) 

LINE = LINE + 1 
IBL = 1 
LC = I 
LCT = ICH 
GO TO 21 

30 CONTINUE 

IF (IBL .LT. 1) GO TO 32 
DO 31 IB = LC, LMX 

31 IPLdB) = IBLK 

32 CONTINUE 
IPL(LC-2) = IBLK 
WRITE(6,27) IPL 
LIME = LINE + 1 
IFN = 0 

II = 0 
J = 1 
LC = 0 
ICH = 0 
34 CONTINUE 
II = II + 1 
LC = LC + I 
ICH = ICH 4- 1 

IF (IALP3(II) .NE. IBLK) GO TO 36 
IF (LC . EO. 1 ) J = J + L 
ICH = 0 

IF (IALP3(II+1) .NE. IBLK) GO TO 36 
IF (IALP3(II+2) .NE. IBLK) GO TO 36 
IFN = 1 
GO TO 38 
36 CONTINUE 

IF (LC .GT. LMT) GO TO 38 
IF (II .LT. LTD GO TO 34 
IFN = I 
GO TO 33 
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38 CONTINUE 

I I = I I - ICH 
33 CONTINUE 

WP!TE(6,3<;) (lALP3(K)t K = JtIIJ 

L INE = LINE + 1 

IF (IFN .GT. 0) GO TO 40 

ICH = 0 

J = II + I 

LC = 0 

IF (II .LT. LTIJ GO TO 34 

39 F0RMAT(18X, 57A1 ) 

40 CONTINUE 
IFN = 0 
LWS = LMS 

II = 0 
IS = 0 
J = 1 

IWOA = INDA 
LC = 0 
ICH = 0 

44 CONTINUE 
11= II + 1 
LC = LC + 1 
ICH = ICH + 1 

IF (IALP4(!I) .NE. IBLK) GO TO 46 
IF (LC .GT. IJ GO TO 45 
J = J + 1 
LC = 0 

45 CONTINUE 
ICH = 0 

IF (IALP4(II+1) .NE. IBLK) GO TO 47 
IF (IALP4(II+2) .NE. IBLK) GO 70 47 
IFN = 1 
GO TO 48 

46 CONTINUE 

IF (IALP4(II) .EO. ISTAR) GO TO 52 

47 CONTINUE 

IP (LC .GT. LWS) GO TO 48 
IF (II .LT. LSO) GO 70 44 
IFN = L 
GO TO 50 

48 CONTINUE 

1 1 = I I - ICH 
50 CONTINUE 

IF (IS .GT. 1) GO TO 60 
WRITE(6t49) (IAL^4(K), K=J,II) 

ICH = 0 
J = II 1 
LC = 0 

LINE = LINE + 1 
IF (IS .GT. 0) GO TO 54 
IF (IFN .GT. 0) GO TO 10 
IF (II ,lT . LSO) GO 70 44 

49 FQRMAT(21X, 54A1) 

GO TO 10 

52 IS = 1 
ICH = 0 
II = I I ^ 1 

IF (LC .GT. 1) GO TO 48 
54 IS = 2 
J = J + 1 
LWS = 47 
11=11+1 
GO TO 44 

60 CONTINUE 

WRITE(6.61) IWCA, (IALP4(K), K = J , I I ) 

61 F0RMAT(2^X, A2 t IX, 48A1) 

LINE = L IN? + I 

IF (IFN .GT. 0) GO TO 10 
IWDA = IBLK 
ICH = 0 
J = II + 1 
LC = 0 

IF (II .LT . LSO) GO TO 44 
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GO TO 10 

70 CONTINU'^ 

LINE = 0 

C TO GrT A NPW PAGE POP. EACH NEW AUTHOR INSEP'^ CARO BELOW 
C OC THTS ONLY IP the input I$ SORTED BY AUTHOR 
C there' IS ONE OTHER CARD THAT MUST BE IMSE.RT=n 
C AUTH = ALPKA) 

WP1TE< 6, 71 ) 

71 F0FMA-^(«1'I 
GO TO 2 

€C CONTINUE 
STOP 
END 

//GO.FTCSFOOl DD 01 SP = I UUO , Nt tn) , UNl ! =3 AOC-A , DSN= ADO , 

// DCe= (PECFM=F3, LP6CL=3J0, 3LKSIZE= 800, CEN=2J , 

// LA3EL=( 11 ,M, , I NJ , VCL= ( ,P6TAIN,5 EP = L I?202 ) 

// DO D ISR = ( OLD, KEEP) , UNI T = AFF=FT05F00 I ,OSN = ADD, 

// DC3= (RECFM=F9, LRECL=8G0, BLKS 12 E=800 , DEN= 2 ) , 

// LAB£L=( 12, .NL, ,INJ ,VOL = ( , RETAi N , R E? = L I B202 J 
// DO DIS?=(3L0,KE£?} ,UNIT=AFF=FTCaFC01,0SN=A00, 



// 


CCB=(REC 


FM=F5, LREC 


L=300 , 


eLKSIZE= 800 , CEN=2), 










// 


L^BFL=( 


13, NL, ,I N) 


,VOL=( 


,RETAI N, SER=LI B202 J 










//GC.SYS IN 


DO 4 














A 


UNP B 


BK- C 


TBK 0 


FRC £ PRI F SYC 


G 


SYI H 


SYE I 


LTR J 


K 


PP- L 


PI- M 


ABC N 


■ ABl 0 CH8 P RPR 


C 


RPT R 


PAT S 


REV T 


U 


THE V 


MIS 














537 A16 


61 ^ 
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f 

//# 

//* 
ft* 

//« 
ft* 
ft* 

//* 

/ /'* 
ft* 
ft* 
ft* 
//SORTED 
//SORTPR 
//SORTL iS 
//S CRTWKOl 
//S0RTWK02 
//SnP7WK03 
//S0RTWK04 
//S0RTWK05 
//$ CR"^WK05 
//SORTI N 
// 



GE TSORT 

THIS PPOGRAM IS FOR USE IN THE FACP'JB SYSTEM 

IT IS FOR files that HAVE BEEN OROCE'^SED EY LIBTAPE 

IT IS THE PRIMARY MEANS OF EXTRACTING RECCROS FRCM THE MAS^'ER TAPE 

THIS PROGRAM WILL REAC THE CONTENTS OF THE SPECIFIED FILES 
IT WILL THEM SORT TrtE RECORDS AS INDICATED CN THE LAST CARO 
THE SORTED RECORDS WILL THEN BE WRITTEN ON A NEW TAPE 
THE LIST PROGRAM SHOULD BE USED TO PRINT THE NEW FILE 

EXEC PGM=I ERRCOOO, REGION= 150K 
DO SYSCUT=A 



DO 

DC 

OD 

DO 

DO 

DO 

CD 



0SN=SYS1 .SORTL I 6,01 SP = SHP 
UNIT=SYSDA,SPACE=(CYL, (15), , CONTI G1 
LNI T=SYSDA,SPACE=(CYL,( 15) , ,CCNTIG) 

UN IT = SYSDA, SPACE=C YL , ( 15) , ,CONTIG) 

UNIT = SYSDA,S P 4CE= { CYL , ( 15 I, , CONT IG) 

U.NIT= SYSDA, SPACE=(CYL ,( 15 ) , ,CCNTIG) 
UNIT=SYSCA, SPA:e = (CYL,( 15 ), ,CONTIG) 
OISP=(CLD,K£EP) ,UNI T=3A00-4, CSN=DUM, 

- - - - DEN = 2) , 

LI3202 ) 

__ -FF = SGRTIN, CSN=CUM, 

CCB= (P ECFM=FR , LP EC L= 80 0, BLXSI ZE= 800 , CEN = 2) , 

LA6EL=( L2 ,NL, , I N) ,V 0L=( , RETAIN, S ER=LI E202 I 

DO 01 S?=( OLO,K£EF) , UM I ^ = aF F=SGRT I N , CS N=CUM , 

CCB= (RECFM = FB, LP£CL= dOO, 3LKSIZE= 800, CEN = 2) , 

LABEL=( 13 ,NL, ,I NJ ,VCL=( , RETAIN, S EF=LIB202 ) 

//SOP TOUT DO DI5P = ( NEW, KEEP ), LNI T=( 3AC0-A , ,0£FER) ,0SN=SCRTE0, 
ft DCB= (PECFM = F8, LRECL=300, BLKS IZ E=800 , CHN=2 ) , 

// LABEL=( I ,BLP) , VQL-S£R = LI 3999 
//SYS IN DO * 

SORT FIELDS=(A,1,3I ,A 



// 

// 

// 

// 

// 

// 

// 



ORTIN OD 01 SP=( CLD,KEEF) ,UNI T=3A00-^ 

DC 3= (RECFM = FB, LRECL=800,3LKSIZE = 800,DEN = ; 
LA6EL=(11 ,NL, ,INJ,VOL=( ,RETUN,S£P = LI32( 
00 01 SP=( OLD , KEEP) ,UNI'^ = AFF = S( 



,1,3,8I,A,737,64,BI,A, 10,3,3I,AI,SIZE = E3GC0 
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OOOOo^OnOOoOOoOOOOOoOOo^^OoOOo^^ 



// EXEC F0RTCLG.REGI3N. G0=1€CK 
//FCRT.SYS IN CC =«' 

BOOK 



THIS PROGRAM BOOK IS USEC TG PRINT THE VOLUf'N ENTITLEC 
"RECENT MPS PUBLICATIONS". IT REQUIRES AN INPUT TAPE CCNTAINII 
RECORDS SORTED INTO 4 GROU°S 
A CONTRIBUTIONS TO BOCKS 

B JOURNAL PUBLICATIONS AND CONFERENCE PROCEEDINGS 
C CONFERENCE PRES ENT AT I CNS 
0 TECHNICAL REPORTS 

THE INPUT TAPE IS CONSTRUCTED USING THE PROGRAM GETBOQK 

THIS PROGRAM WILL PRINT A RECORD ONLY IF THE PRINT CODE IS 1 Cl 
Thus IT WILL SUPPRESS DUPLICATES WITHIN A DEPARTMENT 

IF THE DEPARTMENT CODE ON A RECORD IS NOT GNE OF THE ACADEMIC ( 
CODES, THE PAGE HEADING PRINTED FOR THAT RECORD WILL CONTAIN A 
DEPT OF .... 

SETUP.. . 

JOE, DECK, END 
JCL SPECIFYING INPUT FILE 
DATA. PAGE HE-iOER FOR GROUP 1 
DATA. PAGE HEADER FOR GROUP 2 
DATA. PAGE HEADER FOR GRCUP 3 
DATA. PAGE HEADER FOR GROUP 4 
DATA. END OF PUB COOES 
DATA. ALL 



'L PC' , • STGR' , 



ADUA* , • TE S' , 



D I ME MSI CN ^LP1(6J 
DATA BLK/' ' /, UC /' L' / 

01 MENS I CN OCOOE(23> 

REAL * 4 ENDC /' END* / 

REAL « 4 HEADK 7) / 'NAVA ' , 

1 ’ CHOO' , ' L • / 

REAL * 4H£A02(5J /Z049695A3, Z859985A6, Z6E40C381, Z938986S 

1 Z99958981/ 

REAL * 8 CONT / Z40839695A37D845 C/ 

REAL * 4 HEAD 3( 4) / 'DEPA' , ' RT^E' , 'NT C , ' F 

54 ' , ' 55 
68 ' , ' 69 '/ 



REAL * 4 OCODEI 11) / ' 



C ‘ 

f 






52 



', ' 
, 



• / 
• . 
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1 ' 

REAL 

1 ’ 
REAL 

1 ' 






1 ' 61 ' , ' 62 ' , ’ 63 
D IMENSION DEPT( 7, 12) 

REAL * 4 C52 (7 )/' COMP ' , 'UTER ' , ' SC I ' , 'E NCE • , ' 

' / 

* 4 C53(7) /'MATH' ,'EMAT' , 'ICS ',' ', 

' / 

* 4 C54(7) /'AOMI ',' NIST' ,' RATI* ,• VE S ' , ' C I EN • , ' C ES 

' / 






REAL « 4 C55(7) / ' OPER' , ' AT 10' , ' NS P ' , ' ES £A ' , ' RCH ',' 



REAL « 4 C56(7) / 'NATI ', 'ONAL ' , ' SE C ' , ' LR I T ' , ' Y AF • , 'F A I R 



1 'S 
REAL 

1 ' 

R EAL 

1 • 



4C6K7) /'PHYS','ICS ','AND ' , ' CHE M ' , ' I SIR ' , ' Y 

' / 

« 4 C62(7) /'ELEC ,'TRIC ,' AL E' ,' NG I N' , ' E E R I ' , ' NG 

'/ 

REAL C63(7) / ‘ MET £' , ' Q RCL ' , 'OGY ',' ',' ',' ', 

1 ' '/ 

R EAL « 4 C6 7(7 ) / 'AERO ', 'NAUT ' , • ICS ' , • ' ' , ' 

1 ' ' / 

REAL «4C68(7) / 'OC EA ' , ' NOGR ' , ' A PH V' , ' ',' ' ,' 

1 ' ' / 

REAL * 4 C69(7) / ' M EC h ' , ' ANI C ' , ' A L E ' , ' NGI N ' , ' E ER I ' , ' N G 

1 ' ' / 

REAL # 4 CBLKI7 ) / ' 

1 • V 

EQUIVALETICE ( DE PT ( 1, 1 ) , C 5 2( I ) ) , ( CEP T( 1 , 2 ) ,C 5 3 ( 1 ) ) , 

1 (DEPTU ,3) ,C54m ) , ( CEPT ( 1 , 4 ) , C55 ( 1) ) , ( DEpt ( i , 5 ) , C 56 ( 11 

1 (DEPT< 1, 6) ,C61( 1) ) , (OEPT( 1 ,7) ,C62( 1) ) , ( DE PT < i . 8 ) , C63 (1 1 

1 (DEPT (1,9), C67(in, ( CE°T( 1 , 10 ),C68( 1) ) , ( DE PT( 1 , 1 1) ,C 6?( 



' , ' 



' , ' 






' , ' 



', ' 
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1 (OEPT( 1 ,12) tCBLKd) ) 
REAL * 8 PU8(4,23) 
DIMENSION MF(20) 

INTEGER * 2 IALP2(30,3), 



C 

C 



c 

c 



13 

6 



INTEGER * 2 
INTEGER « 2 
INTEGER ^ 2 
DATA AB/»B 
DATA AE/'E 
data am/ ' M 
DATA A J/ ' J 
DATA PI/ • 1 

LMX = 60 



IPU60 ) 
IBLK /• ' 

IWCA 

• /, AC/ *C 
• /,AF/*F 
• /» AN/ ’N 
• /,AQ/» Q 
*/tP2/*2 



/y 



IALP3(2A0) , 
I SCO /•;•/, 



I ALPA( 243) 

I STAR , 



•/ ,A0/ *0 
' / ,AG/*G 

•/ 



•/ 
* / 



» AK/*K 
,P4/*4 



•/ , AO/ *0 
• / , AH/ ' H 
*/,AL/'L 

•/,P5/*5 



•/ 

•/ 

•/ 

•/ 



102 

ICC 

101 

1C3 

105 

1 

10 

777 



1C6 

4 



LAU = 30 
LMT = 56 
LTI = 240 
LMS = 53 
LSO = 243 
LEND = 7 
LENP * 4 
POK = 0. 

IDE = 11 
lAL = 5 
LICR = 10 
LMAX = 56 
LINE = 75 
CPUS = BLK 
COEPT = BLK 
IP = 4 
IC = 0 
lA = 7 
NFC =99999 
V)RITE( 6 , IC2) 

FORMAT !’ 1 LIST OF PUB CODES S HEADERS* //) 

I = 0 
I = I + I 

READ(5,101) PCODE(I), (PU 6 (J.I)» J=1,I?) 

F0RMAT(A3t 2Xt 4A8) 

IF ( PCODEm .£0. ENDC) GO TO 105 
WRITF(6tl03) I, PCOOE(I)t (PUB(J.I), J=1,T?) 
FnpMAT(7X, I2» 2Xt A4, 4A8 ) 

GO TO 100 
CONTINUE 
lAL = I - 1 
READ(5,1) UU 
FORMAT! A1 ) 

ICLASS = 2 

IF !UU .EG. UC) ICLASS= 1 
CONTINUE 

READ! 8t4,£NO=80) ALPlr MA, lALP2t IALP3, tal? 4 
IF! ALC» I ( 3 ) .EG. P^.OP.ALPl ( 3 ) . EQ.P5 ) CO TO 777 
IF! ALOU 3) .EG. PI .OR.ALPl !3 ) . EQ.P2 ) CO tq 777 
GO TO 10 
CONTINUE 

IF ! ICLASS .£0. 2) GO TO 106 
IF !ALP1!5) .NE. UC ) GO TO 10 
CONTINUE 

F0RMAT!A3fAl,Al» A3»A1,A3, II, 240A1, 240A1, 243A1) 
IC = IC + I 

IF (ALPU2) .EC. CPUB) GO TO 6 
NE PUB-COCE 

CPUB = ALP1I2) 

DO 13 I = 1,IAL 
IF !CPUB 
POK = 1. 

IPPU = I 
GO TO 7 
CONTINUE 
POK = 0. 

GO TO 10 
CONTINUE 



NE. PCODE! I )) GO TO 13 



INDA /'IN'/ 
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IF ( POK . EO. 0. ) GO TO 1C 
IF (ALPl(l) .50. COEPT ) GO TO 5 

7 CONTINUE 
INPUR = 0 
CCEPT = ALPl (I ) 

DO 8 I = 1 t IDE 

IF (CDEPT .NE. DCOOE(I)) GO TO 8 
I PD5 = I 
GO TO 7C 

8 CONTINUE 

I PDE = IDE + 1 
GO TO 7C 

5 CCNTINUE 

IF ((LINE+LICRJ .GT. GO "^0 70 

2 CONTINUE 

9 continue 
WRI TE ( 6t11) 

11 FOPNATI* •) 

LINE = LIKE + 1 
I8L = 1 
LC = 1 

DC 30 I = 1 tNA 

IF ( I BL .LT. 1) GO TO 16 

DC 15 16= LCtLMX 

15 I PL( 1 6) = IBLK 

I8L = 0 

16 CCNTINUE 

DC 20 I I = 1,LAU 

IF (IALP2(II,I) .EQ. IBLK .AND. IALP2ni + l,I) .EG. IBLKJ GC TC 
GC TO 20 
18 CONTINUE 

ULP2( I I, I ) = ISCO 

ICH = II + 1 

LCT = LC + ICH - 3- 

IF ( LCT .GT . LNX) GO TO 26 

GC TO 21 

20 CONTINUE 

21 11=0 

DC 24 J = LC,LCT 
11=11+1 
IPL( J ) = IALP2I II , I ) 

24 CCNTI NUE 

LC = LCT + 1 
GC TO 30 

26 CCNTI NUE 
WRITE! 6,27) IPL 

27 FCRMAT(15X, 60A1J 

LINE = LINE + 1 
IBL = 1 

LC = 1 
LCT = ICH 
GO TO 21 . 

30 CGNT INUE • 

IF (IBL .LT. 1) GOTO 32 
DO 31 18 = LC, LMX 

31 IFL(IB) = I6LK 

32 C CNTI NUE 
IPL(LC-2) = IBLK 
WFITE(6,27) IPL 
LINE = LINE + 1 
IFN = 0 

II = 0 
J = 1 
LC = 0 
ICH = 0 

24 CONTINUE 

11= II + 1 
LC = LC + 1 
ICH = ICH + 1 

IF (IALP3(II) .NE. IBLK) GO TO 26 
1 F I LC . £0. 1 ) J = J +1 
ICH = 0 

IF (IALP3(II+I) .NE. IBLK) GO TP 26 
IF (lALP3(II+2i .NE. lELK) GO tq 
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IFN = 1 
GO TO 38 
36 CCNTIMUE 

I F ( LC .GT. LMT) GO TQ 33 
IF (II . LT. LTI ) GO TO 34 
I FN=1 
GC TO 33 

38 CONTINUE 
11= II - ICH 

33 CONTINUE 

WRIT£(6,39) (IALP3(K), K=J,II) 

LINE = LINE + 1 
IF (IFN .GT. Oi GO TO 40 
ICH = 0 
J = I I +1 
LC = 0 

IF ( I I .LT. LTI ) GO TO 34 

39 FCRMAT (18X , 57Ai J 

40 CONTINUE 
IFN = 0 
LVnS = LFS 
11=0 

IS = 0 
J = 1 

IV^Oi = INOA 
LC = 0 
ICH = 0 

44 CONTINUE 
11= II +1 
LC = LC + 1 
ICH = ICH -»• 1 

IF (IALP4(II) .NE. I8LK) GO TO 46 
IF ( LC .GT. 1 J'^GO TO 45 
J = J + 1 
LC = 0 

45 CCNTINUE 
ICH = 0 

IF (IALF4(II + U .N£. I8LK ) GO TO 47 
IF aALF4(IH-2) .NE. lELK) GO TC 47 
I F^l = 1 

GC TO 48 

46 CONTINUE 

IF (IALP4(II) .EO. ISVAR) GO TO 52 

47 CCNTINUE 

IF (LC .GT. LWS) GO TC 48 
IF ( I I .L^ . LSO) GO TO 44 
I FN=L 
GO TO 50 

48 CCNTINUE 

I I = I I - I CH 
50 CONTINUE 

IF (IS .GT. 1) GO TO 60 
WRIT£(6t49.' (IALP4(KJ, K = J,IIJ 
I CH = 0 
J = I I +1 
LC = 0 

LINE = LINE + 1 
IF (IS .GT. 0 ] GO TO 54 
IF ( I FN .G'-'. 0) GO TO 10 
IF (II .LT . LSO ) GO TO 44 

49 FCRMAT(21X- 54 AU 
GO TO 10 

52 IS = 1 
ICH = 0 
11= II ' I 

IF (LC .GT. 1) GO TO 4 8 
54 I S = 2 
J = J + 1 

LWS = 47 
11=11+1 
GO TO 44 

60 CCNTINUE 

WRITE(6t6l) IWOA, (IALP4(K), K=JtlI) 

61 F0R^’AT(24Xr A 2 , ix, 48A1) 
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LINE = LINE + i 

IF ( I FN .GT . 0 1 G'^ TO 10 

I V>OA = IBLK 

ICH = 0 

J = I I +1 

LC = 0 

IF (II .LT . LSO ) GO TO 
GC TO 10 

70 CONTINUE 
L IME = 0 
WRITEI6 ,71 ) 

71 FORMiiTI ’I’/’O'/'O') 

WRirE(6t72) HEAD! 

72 FCRNAT(33X, 7A4) 

WRITE(6,73) HEA02 

73 FCRMAT(25X, 5 A4 ) 

WRITE(6,7A) HEA03 , ( D £P T ( I , I P OE ) , 1 = 1 , LE NO I 

74 FOR'^ATI //30X, 3A4,A2, 7A A ) 

IF (INPUe .LT. IJ GO 77 

WRITE(6,75) ( PUB( I ,I PPU) ,I =1 , LE^F) , CCNT 

WR If E(6 , 11 ) 

75 FCkMATI/ 30X, 4A3 , IX, A3I 
GO TO 2 

77 CCNTINUE 

WRITEI6,75) ( PUSH ,IPPU) , I=1,LENF) 

WRITE! 6, 11) 

I ^ P J 3 = 1 
GC TO 2 
80 CONTINUE 
WFIT£(6 ,71 i 
STOP 
END 

//GC. FT C3F001 DC C IS P= { OL 0 , K EEP ), UN IT= 3400-4, DSN= ADC , 
// DC8=(RECFM=FB , LREC L=300 , BLKSI ZE=300 , CE N=2 ) , 

// LA3EL= ( 1,NL, , IN) ,\/0L = ( , RETAIN, SER=LI6539) 
//GO.SYSIN DD - 
A CONTRIBUTIONS TO BOOKS 

B JOURNAL FUaS S CONFERENCE OROCS 

C CONFERENCE P RES ENT ATI ON S 

0 TECHNICAL REPORTS AND NOTES 

END OF FU3 COCES 
ALL 
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it EXEC FORTCLG 
//FORT •SYS IN DO « 

C 

C GETBOOK 
C 

C this PROGRiiM GETBOOK IS USED TO PREPARE A TAPE F^^OM WHICH THE BOCK 
C "RECENT NPS P UBL 1 C AT I ONS " CAN SE PRI^TEO. THE PRIN'flNG IS DONE WTH 
C THE PROGRAM CALLED BOOK 
C 

C THIS PROGRAM WILL EXTRACT RECORDS EY PUB CCOE FRO^ THE FILES SPECIFIE 
C GROUD THEM AS INSTRUCTED IN “HE DATA, <^CRT THE^ (SEE LAST CARD), 

C AND VIRITE THEM ON A NEW TA^E READY FCR PRINTING BY BOOK. 

C 

C 

C SETUP 

C JOe, DECK, END 

C JCL SPEC IFYI .•'JG INPUT FILES... 

C three cards SHH'W ing a UNP B BK- 

C DATA CARD SHOWING NUMBER OF GROUPS 

C DATA CARD SHOWING NUMBER OF PUB CODES IN FIRST GPCUF 

C DATA CARD SHOWING ^U 3 CODES T» FIRST GROUP 

C REPEAT LAST TWO CARDS FCR REMAINING G^CUPS.... 

C 15 JCL CAODS RELATED TO SORTING AND WRITING THE OUTPLT TAPE 

C THE OUTPUT ^APE AND FILE NUMBER ARE SPECIFIED ^n CARD 14 

C THE FINAL CARO SPECIFIES HCW THE FILES ARE TC BE SCRTEO 

C 

DIMENSION SELE(2D,10), ISV(iO) 

DIMENSION ALL(199), AlPHA(2,22), SELECT(22) 

REAL RAN(iO) / • A * , ’ 3 • , ' C • , ’ D S * E • , ’ F » , ' G » , * H • , • I • , * J • / 

IGMX = 10 
1 SMX = 20 
1 N = 0 
IC = 0 
lAL = 22 
READ(5,i) AL^HA 

1 FORMATt 10( IX, Ait 3X , A3) ) 

PEAD(5,2) IGPP 

IF (IGRP .LE. IGMX ) GC TC 14 
WRITE( 6, 57) IGMX, IGRP 

57 FCRMAT(*1 ERROR 4 OF GROUPS EXCEEDS MAX OF «, 16, 

1 • VALUE IS * f I6J 

STOP 

14 CCNT INU E 

DC 20 K = I ,IGRP 
READ(5,2) IS 

2 FCRMAT ( 14) 

I 5V(K) = I S 

IF ( IS •LE. ISMX) GO TO 15 

WPITEC6,53) RAN(K)t ISYX, IS ^ , 

58 FORMAT(U ERROR ^ IN GROUP * , A1 , * EXCEEDS MAX CF », 16, 

1 • VALUE IS », 16) 



STOP 

15 CONTINUE 

PEAD(5,3) (SELECT( I), 1=1, IS) 

3 FCRMAT(20A4) 

WRITE( 6,59) RAN(K) , ( SELEC^( J) ,J=l,IS) 

59 rCR-UT{///* =>J B CODES IN GROUP *, Al, • ARE: 

DC 4 I = I , IS 
SA = SELECK I ) 

DC 5 J = It lAL 

IF ( SA .ME. ALPHA(2,JiJ GO TO 5 

6 CONTINUE 

S ELE( I t K) = ALPHAd , J J 
GO TO 4 
5 C1NTIV!UE 

WFITE(6,7) SA 

7 FQRMAT(d ERROR IN INPLT PUB CODE •, A4 ) 

STO^ 

4 CCNT 1 MU E 
20 CONTINUE 

9 C^N^INUE 

REAO(B tlO ,END=50) AA, AC'JB, ALL 
IF ( IN .3 i . 50) GO TO 1C 1 

WPrE(6t56) AAtAPUB, (ALL(Dt 1=1,20 



/ ( 2Xt 2CA5) ) 
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101 CCNT INUE 

56 FORMAT (IX, A4 , A2 , 2 0A4) 

IN = IN 1 
DC 13 K = I , IGRP 
I S = I SV(K) 

DO 8 I = It IS 

IF (APUe .EO. $ELE(l,Kn GO TO 12 
8 CONTINUE 
GO TO 13 

12 CONTINUE 
APUB = RAN(K) 

WRITE(9,iO} AA, APU8, ALL 
IC = IC + 1 

GO TO 9 

13 CONTINUE 
GC TO 9 

10 FORMAT ( A2,A 1, 199A A) 

50 WPirE{6,5i) IN, IC 

51 FCRMATIU END OF RUN: RECORDS IN •, 16, • AND CUT •, 16) 

STOD 

END 

//G0.FTC8F001 DO D I S P= ( CL C , K E E P ) , UN IT=3 400-4 , CSM= OUM , 

// DCB= (PECFM=FP, LPECL= e00,BLi<SIZE = 800,0EM = 2J , 

// LA8EL=(11 ,\L, , IN) ,VOL= ( , R 6T A IN, S EP = L I B 202 ) 

// DO DI SP=( Old, KEEP) ,UNIT =aFF = FT08F001 , C$N=DU‘^, 

// OCB= (RECFM = FB,LR £CL = 800 , 3 LKS IZ£= 300, DEN=2) , 

// LABEL = (12 ,NL, ,IN) , V 0L= ( , R ET A I N , S ER = Lie202) 

// DD OISP=( OLD ^ KEEP) , UNI T=AFF=F^08 FOO 1 , OS N=DU H , 

// CCB=( RECFM=FB, LPECL=800, BLK S IZ E= 300 , CEN=2 ) , 

// LAB£L = ( 13,NL, ,IN) ,VOL = < , R ET A I N, S ER = L I 5202 ) 

//GO.FTC9F001 DO INI T=SYSOA , SPACE =( C YL , ( 1 0 , 1 ) ) ,D S N=T C. S 0 Rt , 

// DCB=(RECFM = FB,LRECl= 800, 3LKS IZE = 800 ),DISP = ( NEW, PASStDELETE) 

A UNP B 6K- C TBK D PRC E PRI F SYC G SY I h SYE I 

K PP- L PI- M ABC N ABI G CHB P RPR Q RPT R PAT S 

U THE V MIS 



4 

4 

BK- TBK CHB SYE 
6 

PP- FI- SYC SYI AEC ABI 
2 

PRC PRI 



RPT TN- 

//SORTED 

//SORTPR 

//SOR TL 13 

//SCRTWKOl 

//S0RTWK02 

//SORTWK03 

//S GRTWK04 

//S0RTWK05 

//S0RTWK06 



EXEC DGM=IERRCOOO,REGION= 150K 
DD SYSGUT=A 

DO D SN=SYSi. SQRTLI B,DI SP = SHF 
OD UNIT=SYSDA, SPACE=(CYL , ( 15),,C0NTIG) 
DD UNIT = SYSDA,SF/3CE=(CYL, ( 15 )t f CCNTIG) 
DO UNIT=SYSD \, SPAC5 = (C YL ,( 15) , ,CCNTIG) 
DC UNIT=SYSDA,SPACE=(CYL,( 15),,C0NTIG) 
DO INI T= SY SD A, S PA C£ = (CYL,( 15 ), tCCNT I G; 
DO UNIT=SYSDA,S?ACE=CYL,( 15),,C0NTIG) 



//SORTIN DO UNIT xSYSDA, CSN=TC*SORT, C li?=(OLD, DELETE, DELETE), 

// DC^ = (5ECPM=P^ , LREC L =800,8 LK SI ZE =800 ) , L AP E L = ( , , , I N ) 

//SOPTOIJT DO DISP=(NEW,(\E£P),UNIT=( 2 400- 4 , , .J E F £ R ) t0SN=50RTEDt 
// 0C3=(RECFM=F3 , LRcCL = 800, 3LKSIZE=8 00 , CEN=2) , 

// LABcL=( 1,3LP) , V0L=SER=LIBSS9 
//SYSIN DO - 

SORT FI£LDS = (4,1,3I ,A,1 ,3 ,ei , A ,73 7 ,64 , 3 I , A, i 0 , 3 , 8 I , A } , S I Z £= 6 2000 



L*^R J 
REV T 
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